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1 .  INTRODUCTION 


This  report  documents  a  number  of  errors  (or  potential  errors) 
discovered  in  the  TACWAR  theater-level  combat  simulation  model 
developed  by  the  Institute  for  Defense  Analysis  (IDA)  for  the 
Department  of  Defense  Studies  Analysis  and  Gaming  Agency  (DoD-SAGA) 
and  maintained  by  the  Command  and  Control  Technical  Center  (CCTC)  of 
the  Defense  Communications  Agency  (DCA). 

Since  TACWAR  is  being  considered  a  prime  candidate  to  provide  the 
net  assessment  results  of  the  Army's  Theater  Nuclear  Forces 
Survivability  (TNF/S)  program,  the  author,  who  is  currently  a 
participant  in  TNF/S,  obtained  a  copy  of  version  2.1  TACWAR,  including 
the  baseline  data  base,  from  CCTC  in  June  1978.  The  principal  area  of 
interest  to  the  author,  as  a  member  of  the  team  responsible  for 
including  Command,  Control,  and  Comm unications  Degradation  (C3/D) 
effects  in  TNF/S,  has  been  to  determine  those  portions  of  the  TACWAR 
program  that  are  amenable  to  C3  /D  and  to  augment*,  the  TACWAR  program 
code,  to  reflect  this  inclusion  of  C3/D  effects.*  Because  tnis  effort 
requires  an  in-depth  study  and  analysis  of  much  of  the  TACWAR  code,  a 
simultaneous  review  of  the  existing  code  has  been  performed,  revealing 
possible  discrepancies,  logic  errors,  and  programming  "bugs." 

In  documenting  theca  errors  it  is  not  the  intent  of  the  author  to 
try  in  any  way  to  discredit  or  impugn  the  integrity  or  competence  of 
the  individuals  who  developed  TACWAR.  The  author  is  well  aware  that 
3ny  program  the  size  of  TACWAR  is  exceedingly  difficult  to  debug, 
except  through  extensive  use  by  a  large  community  of  interest, 
preferably  working  independently,  but  maintaining  close  communications 
on  relevant  matters  of  common  interest.  In  fact,  some  of  the  "errors" 
discussed  in  this  memorandum  may  simply  reflect  an  incomplete 
understanding  by  the  author  of  the  intent  of  specific  sections  of  the 
code.  For  such  situations,  the  author  would  be  grateful  to  be 
informed  of  correct  interpretation,  either  formally  or  informally. 


2 .  SCOPE 

This  document  does  not  purport  to  include  an  exhaustive  list  of 
all  errors  or  potential  errors  in  TACWAR.  Indeed,  some  sections  of 
TACWAR  and  some  subroutines  have  not  yet  been  analyzed  in  detail  by 
the  author,  either  because  they  contain  complex  algorithms  whose 
analysis  requires  documents  not  currently  available  to  the  author  or 
because  they  have  little  or  no  C3/D  aspect.  Moreover,  no  attempt  has 
been  made  to  analyze  the  effect  that  the  errors  might  have  on  the 
validity  of  the  results  obtained  from  TACWAR.  It  is  quite  possible 
that  some  errors  produce  almost  trivial  perturbations  while  others 
might  be  significant.  In  either  case,  however,  it  is  recommended 
that,  if  an  error  exists,  it  be  corrected  regardless  of  the  scope  of 
its  effect  on  the  results. 


*C3  modified  TACWAR  model,  John  C.  Ingram,  Harry  Diamond  Laboratories  preliminary 
report  (HDL-PRL-80-8 ..  January  1980),  to  be  published  as  HDL-TR-1918). 


Specifically  excluded  from  detailed  analysis  are  the  lairge 
subroutines  DAMEVL  and  CEMDAM  (formerly  CHEMDAM),  and  their  ancillary 
subroutines,  used  to  evaluate  the  damage  to  targets  by  nuclear  and 
chemical  strikes.  In  addition*  the  entire  "supp.’y"  model  has  not  yet 
been  analyzed  in  detail.  Lastly,  within  man/  of  the  remaining 
subroutines  the  "output"  statements  (i.e.,  WRITE  and  FORMAT)  have  not 
yet  been  analyzed. 


3.  SYSTEM  COMPATIBILITY 

After  receiving  the  original  TACWAR  program  and  data  base  ftrom 
CCTC  (Honeywell  compatible  version),  the  author  converted  the 
subroutines  comprising  the  program  to  be  compatible  with  the  FORTRAN 
Extended  compiler  operating  under  0S-VS2  on  the  IBM/370-168  system 
available  at  the  U.S.  Army  Harry  Diamond  Laboratories  (HDL) .  This 
compatibility  task  necessitated  the  removal  of  the  " PARAMETER"  option 
available  for  the  original  Honeywell  version.  Other  aspects  of  the 
conversion  process,  such  as  replacing  the  CHARACTER  statements  with 
techniques  performing  equivalent  functions  and  recognizing  the 
differences  in  bit  lengths  of  characters  and  words  between  the 
Honeywell  and  IBM  machines,  were  also  taken  into  account. 
Nevertheless,  the  bulk  of  the  coding,  being  essentially  ANSI- 
compatible  FORTRAN,  remained  intact  during  the  conversion  process,  and 
the  errors  found  in  this  part  of  the  code  are  not  machine  dependent. 


4.  DOCUMENTATION 

The  maintenance  manual  for  TACWAR  has  been  used  extensively: 

Command  and  Control  Technical  Center,  Institute  for  Defense 
Analysis  Tactical  Warfare  (TACWAR)  Model,  Computer  Systems  Manual 
Number  CSM  MM  237-77,  Vols  I,  II,  and  III,  Washington,  D.C.  (6 
September  1977). 


5.  ANALYSIS  BY  TACWAR  PROGRAM  SECTION 

The  errors  are  numbered  and  documented  point  by  point  for  each  of 
the  major  sections  of  the  TACWAR  program. 

Section  A — Data  Input  and  Cycle  Control 

Section  B — Air  Combat  Simulation 

Section  C — Nuclear  Combat  Simulation 

Section  D — Ground  and  Air-Ground  Combat  Simulation  and  Theater 
Control 

As  mentioned  previously.  Supply  Simulation  is  presently  excluded  from 
the  analysis.  Similarly,  since  the  chemical  combat  simulation  has 
essentially  a  one-to-one  correspondence  with  the  nuclear  combat 
simulation,  the  chemical  combat  simulation  has  not  been  explicitly 
included.  It  is  recommended  that  for  every  error  described  in  the 
nuclear  combat  simulation  (Section  C)  the  corresponding  location  for 
the  chemical  combat  simulation  also  be  investigated  for  possible 
error. 
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Within  each  of  the  major  areas  above,  the  errors  are  document'd 
for  the  main  contrc 1  subroutine  first,  then  documented  for  the 
remaining  subroutines  as  they  are  logically  utilized  in  the  program 
flovz.  The  documentation  of  each  error  will  consist  of  the  following 
points . 

(1)  Descriptive  title, 

(2}  Exact  location  of  error  (i.e.,  providing  name  of  subroutine 
in  which  error  occurs  and  portion  of  code  that  contains  error ) , 

(3)  Discussion  of  reasons  error  is  believed  to  exist, 

(4)  Proposed  method  to  eliminate  error, 

(5)  Copies  of  applicable  code  before  and  after  proposed  changes. 

SECTION  A — DATA  INPUT  and  CYCLE  CONTROL 

No  errors  were  detected  in  this  section. 

SECTION  B— AIR  COMBAT  SIMULATION 

Error  B1 :  Parameter  NDS  (IST,K)  is  not  checked  for  a  zero 
condition. 

Location:  Subroutine  AIRMOD  before  DO  loop  542. 

Discussion:  NDS  (IST,K)  contains  the  number  of  divisions  in  the 
active  battle  area  of  sector  1ST  for  side  K.  The  possibility  exists 

for  NDS  to  be  zero,  in  which  case  DO  loop  542  should  be  skipped.  This 

type  of  check  for  NDS  =  0  occurs  many  places  in  other  subroutines  of 

TACWAR  (e.g.,  in  subroutine  GC  before  DO  loop  1010,  before  DO  loop 

2525,  etc. ) . 

Corrective  Action:  Place  a  logical  GOTO  statement  before  DO  loop 
542  to  skip  the  DO  loop  on  the  condition  that  NDS  (IST,K)  is  zero. 

Original : 

C  SJM  UVLR  ALL  DIVISIONS  IN  SECTOR  1ST  TO  OBTAIN  PSRSCAt ISS , 1ST  I 

C  -  NO.  SHORT  RANGE  SAMS  ALIVE  AND  OPERATING  QE  TYPE  ISS  WHICH 

C  DEFEND  COMBAT  UNJTS  IN  SECTOR  1ST 

DO  542  I0S=M.1,H? 

C  ID  =  INOEX  TU  DIVISIUN  LOCATION  IN  ACTIVE  BATTLE  AREA  IN  POSITION 

C  IDS  OF  SECTOR  1ST  =  I DLABA II DS , I  ST » 

ID  = I ULABAl  IDS, 1ST) 

00  541  I SS  =1 »M3 

PSRSCA I  1 SS  ,  I  ST )  =  PSR  SC A  t 1SS,I5T)*WD1VIIW+IS5*ID) 

C  WDIV(1W+1SS,ID)=  ACTUAL  NO  .T  YPE  (I  W-»J  SS  )  WEAPONS  IN  DIVISION  ID 

541  CONTINUE 

542  CONTINUE 


Error  B1  (Cont'd) 


Corrected : 

C  SUM  OVER  ALL  DIVISIONS  IN  SECTOR  1ST  TO  OBTAIN  PSRSCAIISS.  1ST) 

C  =  NO.  SHORT  RANGE  SAMS  ALIVE  uND  OPERATING  Of  TYPE  ISS  WHICH 

C  OEFEND  COMBAT  UNITS  IN  SECTOR  1ST 

IF INDS(K) . EO .0 >60T  0  546  I  J ClOOl 

DO  542  1 DS  =K 1 , M2 

C  ID  =  INDEX  TO  DIVISION  LOCATION  IN  ACTIVE  BATTLE  AREA  IN  POSITION 

C  IDS  OF  SECTOR  1ST  =  1 DLABA C I CS, i ST) 

1 D  =  I DLABAI IDS.  1ST) 

DO  541  1 SS  =1 »N  3 

PSRSCAIISS, I  ST )  =  PSRSCA(1SS,1ST)*WD1VIIW4ISS,ID) 

C  WD1VIIW41SS,  ID  >=  ACTUAL  NO -T  YPE  II  W-»  I  SS  )  WEAPONS  IN  DIVISION  ID 

541  CONTINUE 

542  CONTINUE 

546  CONTINUE  1  JCIOOI 


Error  B2:  Incorrect  use  of  local  parameters  PSRSC( ISS, IS, K) , 
PSRSI(ISS,  IS,  K) ,  PSRSCA(  ISS,  1ST) ,  and  PSRSIA( ISS, 1ST) . 

Location :  Subroutine  AIRMOD  within  DO  loop  57010  and  subroutine 
AIRATT  within  DO  loop  540. 

Discussion:  This  is  a  rather  complex  error,  spanning  several 
subroutines  and  apparently  involving  a  conflict  between  the  use  of  the 
indices  IS  and  1ST  to  represent  geometric  regions  on  the  one  hand  and 
sectors  on  the  other.  PSRSC( ISS, IS, K)  and  PSRSI ( ISS, IS, K)  are  local 
parameters  (within  the  air  combat  model)  that  contain  the  initial 
number  of  short-range  (surface-to-air  missile)  SAM  weapons  of  type  ISS 
within  divisions  in  the  active  battle  area  (for  PSRSC),  and  the  first 
inactive  battle  area  (for  PSRSI)  in  sector  IS  for  side  K.  Similarly, 
PSRSCAf ISS, 1ST)  and  PSRSIA( ISS, 1ST)  are  local  parameters  that  contain 
the  dynamic  number  of  operational  SR-SAM  weapons  of  type  ISS  within 
sector  1ST  for  active  battle  area  divisions  and  first  inactive  battle 
area  divisions,  respectively.  PSRSCA  and  PSRSIA  are  correctly 
initialized  within  DO  loops  541  and  543  of  subroutine  AIRMOD,  and  the 
results  are  correctly  transferred  to  parameters  PSRSC  and  PSRSI  within 
DO  loop  561  of  subroutine  AIRMOD.  However,  PSRSCA  and  PSRSIA  are 
incorrectly  reset  to  zero  within  DO  loop  540  of  subroutine  AIRATT, 
which  is  called  early  within  DO  loop  57050  of  subroutine  AIRMOD. 
Subsequent  calls  to  subroutines  AOVL1,  ATTR2  (via  AOVL2) ,  and  ATTR5 
then  use  parameters  PSRSCA  and  PSRSIA  which  were  previously 
incorrectly  reset  to  zero.  Lastly,  parameters  PSRSC  and  PSRSI  are 
incorrectly  adjusted  within  DO  loop  57010  of  subroutine  AIRMOD  to 
reflect  the  number  of  weapons  killed  or  damaged.  This  adjustment  is 
incorrect  on  two  accounts:  (a)  no  adjustment  should  be  made,  since 
PSRSC  and  PSRSI  are  used  later  within  DO  loops  57064  and  57067  to 
apportion  the  operational  weapons  among  the  participating  divisions 
and  (b)  even  if  an  adjustment  were  required,  the  index  IS  for 
parameters  PSRSC(ISS,IS,K)  and  PSRSI (ISS, IS, K)  within  DO  loop  57010  of 
subroutine  AIRMOD  denotes  a  region  value  which  is  inconsistent  with 
the  sector  index  value  by  which  the  parameters  were  initialized  in  DO 
loop  561  of  subroutine  AIRMOD  (as  described  above) . 
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Corrective  Action;  (a)  In  subroutine  AIRMOD  remove  the  statements 
within  DO  loop  57010  that  adjust  the  parameters  PSRSC  and  PSRSI. 

(&',  In  subroutine  AIRATT  remove  the  statements 
within  DO  loop  540  that  reset  parameters  PSRSCA  and  PSRSIA  to  zero. 

Original ; 

Subroutine  AIRMOD 


APPLY  SA*  KILLS  AND  DAMAGES  TO  SAH  INVENTOR  IPS 


SUBTRACT  KILLED  AND  DAMAGED  SAMS  Tt  OBTAIN  NO.ALIVE  DEFENDING 
COMBAT  UN1TSCPSRSC ), INTERDICTION  T ARGET S IPSRS 1) ,  FORWARD  AIRBASES 
IPSRSF),  REAR  AIR  BASES(PSRSR) 

DO  57010  ISS=1,N3 

JCI  PSRSCilSS,  !S,K  )=PSR5CIIS5,IS,K  l-PSRSCK  t  ISS I-PSRSCDI  ISSJ  C  JC1001 

JCI  PSRSI tlSS, IS,K)=PSRSIIIS5» IS»K  I-PSRS IKI I SS I-PSRS ID  I ISS )  C  JCI001 

PSRSFUSS,  IS,K  I'PSRiF  1 1SS  .  IS  ,K  l-PSRSFK  1 1S5 ) -PSRSFDl  1 SS  I 
PSRSR  C I SSt IS,K1=PSRSRIISS,IS,K J-PS RSRK t! SSI-PSRSRPI I SS I 
C  DSSMPL  =  NO-  SHURT  RANGE  SAMS  DAMACED  AND  IN  MAINTENANCE  POOL 

DSSMPL  (  I  SS  ,K)  =  DSSMPL  I ISS  ,K  )-»PSRSFD  1 1  SSUPSR SRDCI SS  J 
57010  CONTINUE 


Subroutine  AIRATT 
00  551.  1S5-1.N3 

C  PSRSFAI I SS  I  =  NO.ALIVE  TYPE  ISS  SAMS  IDR  AAAI  DEFENDING  FORWARD  A/B 

PSRSCA  USStIS!-0- 
PSRSFAI I  SSI =PSRSF( ISS,IS,K  )*TEHP1 
PSRSRA ( I SS I  =  PSRSR! I SS , 1 S ,K 1 *T E MP Z 
PSkStAI  1SSMPSRS/I  ISS»K1/NS*TEMP3 

C  INITIALIZE  SAMS  K1  LL  ED  I K  )  ,  DAM  AGE  D  (  C )  ,SU  PPRE  SSEC I  S 1  THIS  CYCLE 

PSRSIAt ISS ,1S1 =0- 

Corrected; 

Subroutine  AIRMOD 

C  - 

C  APPLY  SAM  KILLS  AND  DAMAGES  TU  SAM  INVENTORIES 

C  - 

C  SUBTRACT  KIIlED  AN l  DAMAGED  SAMS  TL  OBTAIN  NO.ALIVE  DEFENDING 

C  COMBAT  UNI TS(PSRSC  ), INTERDICTION  T AR GF T S f PSRS I » ,  FORWARD  AIRbASES 

C  (PSRSFI,  REAR  AIR  BASESIPSRSR) 

DO  5  7010  I SS  = 1  »N3 

PSRSU ISS, IS,K}=PSSjC( ISS, IS,K I-PSRSCKI I SSI-P5RSCD I ISS I 
PSRSI < 1 SS. 1S,K  I-PSRSI ( I SS, I5rK  I-PSRSIKI ISSI-PSRSIDI ISS) 

PSRSF  IISS,IS,K)-PS<SFI  I  SS,lS,KI-PSRSFK(  ISS)-PSRSFCUSSI 
PSRSR II SS, IS,K )=PSR5R(ISS,IS,K I-PSRSRKC 1 SS) -PSRSR D( ISS) 

C  DSSMPL  =  NU.  SHORT  RANGE  SAMS  DAMAGED  AND  IN  MAINTENANCE  POOL 
DSSMPL  U  SS .K  M DSSMPL  ( I  SS.Ki+PSRSFD  II SSMPSRSRDt  ISS! 

57C1 v  CONTINUE 

Subroutine  AIRATT 
-  DO  540  ISS  =  1,N3 

C  PSRSFAI  l  SSI  =  NO. ALIVE  TYPE  ISS  SAKS  IUR  AAA)  DEFENDING  FORWARD  A/B 
C  JCI  PSRSCAUSS.ISMO.  C  JCJOOJ 

PSRSFAI ISS I'PSRSf I ISS, IS, K)*TEKPJ 
PSRSR A (I SS I'PSRSRt ISS , IS  ,K)»TEKP2 
PSRSZA(IS5)=PSRSZIISS,KI/NS*TEHP3 
C  JCI  PjRSlAIISS, 151*0. 

C  INITIALIZE  SAKS  XI ILEO IK  I, DAMAGED (0) , SUPPRESSED! SI  THIS  CYCLE 


C  JCI 001 


Error  B3:  Parameter  TSRSSC  (IS.S,K)  is  not  accumulated. 

Location:  Subroutine  AIRMOD  within  DO  loop  57032. 

Discussion:  Parameter  TSRSSC (ISS, K)  should  contain  the  total 
number  of  short-range  SAM  weapons  of  type  ISS  for  side  K  that  are 
suppressed  by  air  combat  during  the  current  combat  cycle.  The 
adjustment  of  TSRSSC  within  DO  loop  57032  is  not  an  accumulation  but 
contains  only  the  number  of  SAM's  suppressed  within  the  region 
currently  being  addressed  by  the  index  IS  (i.e.,  DO  parameter  IS  of  DO 
loop  57050) . 

Corrective  Action:  (a)  Include  the  parameter  TSRSSC(ISS,K)  in  the 
adjustment  expression  with  DO  loop  57032  of  subroutine  AIRMOD  to  form 
an  accumulation. 


(b)  Reset  the  parameter  TSRSSC (ISS, K)  to  zero 
at  a  location  before  DO  loop  57050  (e.g.,  within  DO  loop  502)  of 

subroutine  AIRMOD. 

Original : 

DJ  57032  I  SS  =  I »N3 

C  CUMULATIVE  NUMBERS  OF  SHORT  RANGE  SAMS  KILLED 
CP5ScK(lSS»K)=CPSSFK(lSSfK  I  +  PSRSFK  (l SS I 
CCSSRMISS,K)  =  CPSSRK(1SS»KI+PSRSRK  II SSI 
CPSSCKIISS.K ) =CPSSCK II SS ,K )*PSRSCK  I  ISS  I 
CPSSIM  ISS.M-CPSSIKIISS.KI+PSRSIKilSSI 
C  TSRSSC  =  TOTAL  SHOT T  RANGE  SAMS  SUPPRESSED  THIS  CYCLE 

C  CSRSOH  =  CUMMULAT1VE  SHORT  RANGE  SAMS  DAMAGED 

ISRSSC  ( I  SS  ,K  I  =  PSRS  ESI  ISS  HPSRSRSII  55MPSRSCSI  1SSI*PSRSISI  ISS  I 
CSRSL'MI  I SS  »K ) -CSRSDMI I SS  ,K  l+PSRSFD  <1  SS  MPSRSR D<!  SS )*PSRSCDI  ISS  I 
X  +PSR  5  1D(  1 5  SI 

57032  CONTINUE 


Corrected: 

f  INITIALIZE  C  UP  PM  RESULTS  FOR  SAMS  1  f.\  T  H 1 .  CYCLE 

CO  502  ISS-1.N3 
FSi'.SZM  ISS  1-0. 

P5RS20nSS)  =  C. 

PSR52S I ISS  1  =  0. 

TSR 35  C  C I SS  »K )  =  0 . 

5  02  l  ■"  u  1 1  .‘.'OF 

DO  57032  I SS-1 »N3 

C  CUMMULATIVE  NUMBERS  OF  SHORT  RANGE  SAKS  KILLED 
CPSSf  M  I  SS  fK  I  =  CPSS  FM 1  SS  ,K  J+PSRSFK  C15S) 

CPSSRKf ISS,KI=CPSSRKtIS5 ,K MPSRSRK  (ISS I 
CPSSCKl!S5tKJ=CP5SCKIISS,K)«PSRSCKC!5S) 

CPSS1KUSS  ,K  )  =  CPSSl  MISS  ,K  MPSRS1M1SS  ) 

C  TSRSSC  =  TOTAL  SHORT  RANGE  SAMS  SUPPRESSED  THIS  CYCLE 

C  CSRSOM  =  CUMMULATIVE  SHORT  RANGE  SAMS  DAMAGED 

TSR5SCIISS,K)=PSRSFSUSSI«PSRSRSIISS)«PSRSCSf ISS)«PSRSIS(1SSI 
*  «TSRS$CtlS5,Kl 

CSR50MI  lSS,K)  =  CSRSDHI15S,K)«PSRSfD|ISS  MPSRSRDCI SS)-»PSRSCDCISS) 
X  4PSRSID1ISSJ 

57032  CONTINUE 
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I  JCI001 

I  JCI001 
I  JCI001 


1 


Error  B4;  Parameter  TMRSSC (IMS, K)  is  not  accumulated. 

Location:  Subroutine  AIRMOD  within  DO  loop  57034. 

Discussion:  This  error  is  identical  to.  B3,  except  that  B4 
involves  parameter  TMRSSC(IMS,K)  referring  to  medium-range  SAM  weapons 
of  type  IMS  for  side  K. 

Corrective  Action:  Similar  to  B3. 

(a)  Form  an  accumulation  at  the  appropriate 
statement  in  DO  loop  57034  of  subroutine  AIRMOD. 

(b)  Reset  the  parameter  TMRSSC (IMS, K)  to  zero 

at  a  location  before  DO  loop  57050.  This  will  require  the 

introduction  of  a  new  DO  loop  since  none  presently  exist  which  step 
over  the  index  IMS. 

Original : 

5 ''.32  CONTINUE 

DU  57034  1  MS=1  ,N4  '  0 

(  TMRSSC  =  TOTAL  MEDIUM  RANGE  SAMS  SUPPRESSED'  T.HIS  CYCLE 

C  C8M5K  -  C UMKULA1 1  VL  MEDIUM  RANGE  SAMS  KILLED) 

TMRSSC  (  I  MS  ,K  )  =  ISM  NS  S  (IMS  1 

C3HSK ( I  MS, K) =  CBMSK  ( IMS  * K  J  +  &MRSK ( IMS ) 

Corrected: 


502  CONTINUE 

DO  529  I  MS  =  1 »N4 
TMRSSC  l- IMS, K)  =  0. 
529  CONTINUE 

DO  528  ILS=1,N5 


C  TMRSSC  =  TOTAL  MEDIUM  RANGE  SAMS  SUPPRESSED  THIS  CYCLE 

C  CBMSK  =  CUMMULATIVE  MEDIUM  RANGE  SAMS  KILLED 

C  CMRSDM  =  CUMMULATI VEMED1UM  RANGE  SAMS  DAMAGED 

C8MSKIIMS,K)=C?MSK (IMS ,K I+BMRSKl IKS) 

TMRSSC C  IMS fK)=BMRS SUMS)  ♦  TMRSSC (I  MS ,K) 
CMRSDM(IMS,K)=CMRSDM(IMS ,K J+BMRSDl IMS) 

57034  CONTINUE 


1  JC1001 
I  JCI001 


Error  B5:  Parameter  TLRSSC (ILS,K)  is  not  accumulated. 

Location:  Subroutine  AIRMOD  within  DO  loop  57036. 

Discussion:  This  error  is  identical  to  B3  except  that  B5  involves 
parameter  TLRSSC (ILS,K)  referring  to  long-range  SAM  weapons  of  type 
ILS  for  side  K. 

Corrective  Action:  Similar  to  B3. 

(a)  Form  an  accumulation  at  the  appropriate 
statement  in  DO  loop  57036  of  subroutine  AIRMOD. 
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Error  B5  (Cont'd) 


(b)  Reset  the  parameter  TLRSSC (ILS,K)  to  zero 
at  a  location  before  DO  loop  57050  (e.g.,  within  DO  loop  528  of 

subroutine  AIRMOD). 


Original : 


57034  CONTINUE 

00  57036  ILS=1,N5 

C  Cl  RRSDM=  CUMULATIVE  LONG  RANGE  SAMS  DAMAGED 

C  TLRSSC  =  TOTAL  LONG  RANGE  SAMS  KILLED  THIS  CYCLE 

C  CALSRK  =  CUMMULATIVE  LONG  RANGE  SAMS  KILLED 

CLRSDM(1LS»K)=CLRSDM(1LS»Y J  +  ALRSRD  II LS) 

TLRSSC <  I  LS  »K)  =  ALRSRSIILS) 

CALSRK IILS.K J=CAISRK (1 LStK  I  +  ALRSRK  IILS) 

57C36  CONTINUE 


Corrected: 

DO  528  1  LS  =  1 »N5 
ALRS2KI ILS )-0. 
ALRS2DI ILS )  -  0  . 
ALRS2SI ILS 1=0. 
TLRSSCC ILS  »K  )  =  0. 
528  CONTINUE 


57034  CONTINUE 

DO  57036  ILS  =  l,N‘i 

C  CLRR5DM=  CUMMULATIVE  LONG  RANGE  SAMS  DAMAGED 

C  TLRSSC  =  TOTAL  LUNG  RANGE  SAMS  KILLED  THIS  CYCLE 

C  CALSRK  =  CUMMULATIVE  LONG  RANGE  SAMS  KILLED 

CLRSDMC1LS  ,K  I  =  CLRSDMC  I  L  S  ,K  I  •»  ALRSRD  I  ILS ) 

TLRSSC  1 1  LS  tK  }  =  TLRSSCflLS.KM  ALRSRSIILS)  I  JCI001 

CALSRK! I LS ,K ) = CALS RK( I L S ,K I +ALRSRK ( I LS) 

57036  CONTINUE 


Error  B6:  The  line  accumulating  parameter  CMRSDM(IMS,K)  has  been 
omitted. 

Location:  Subroutine  AIRMOD  within  DO  loop  57034. 

Discussion:  Parameter  CMRSDM(ISM,K)  contains  the  number  of 

medium-range  SAM  weapons  of  type  IMS  for  side  K  that  have  been  damaged 
by  air  combat  accumulated  to  the  present  combat  cycle.  The  statement 
to  perform  this  accumulation  is  apparently  absent. 


Error  B6  (Cont*d) 


Corrective  Action;  Include  the  statement  forming  the  accumulation 
of  CMRSDM ( IMS,K)  (by  incrementing  with  parameter  BMRSD(IMS))  within  DO 
loop  57034  of  subroutine  AIRMOD.  See  as  an  example  the  appropriate 
statement  within  DO  loop  57032  of  subroutine  AIRMOD  for  a  similar 
accumulation  of  parameter  CSRSDM(IS3, K)  referring  to  short-range  SAM 
weapons  of  type  ISS  for  side  K. 

Original: 


$7032  CONTINUE 

00  57034  1H5=1,N4 

C  TMRSSC  -  TOTAL  MEDIUM  RANGE  SAMS  SUPPRESSED  THIS  CYCLE 

C  CBMSK  =  CUMMULATI YE  MEDIUM  RANGE  SAMS  RILLED 

TMRSSCl  IMS *X)  =  BMRS SUMS! 

CBHSKI  IMSt  Ml  ■OMSK  ( 1HS»K )*bMRSK I  IMS) 

57034  CONTINUE 


Corrected: 

C  TMRSSC  =  TOTAL  ‘'EDIUM  RANGE  SAMS  SUPPRESSED  THIS  CYCLE 

C  CBMSK  =  CUMMULATI VF  MEDIUM  RANGE  SAMS  KILLED 

C  CMRSDM  =  CUMMULATI VEMED1UM  RANGE  SAMS  DAMAGED 

CBMSK  tIMS»  K! =CBMSK ( IKS ,K I+BMRSK t IMS) 

TMRSSC (lKStKl=EMRSS(IMSI  *TMRSSC C I M$ ,K I  I  JCI001 

CMRSDM  I  IKS  »K  )  =  CMRSDM!  IMS  *K  !-»  BMRSDt  IMS  I  I  JCI001 

57034  CONTINUE 


Error  B7;  Parameter  NDS(IST,K)  is  not  checked  for  zero  condition. 
Location:  Subroutine  AIRMOD  before  DO  loop  57064. 

Discussion:  This  error  is  identical  to  B1  above. 

Corrective  Action:  Similar  to  B1  above. 


Original : 

c  recompute  woiv  =  no. weapons  of  each  type  in  division  id  to 

C  REFLECT  IFSULTS  OF  CURRENT  ENGAGEMENT 

IW=NW(K I-NDSAHS(K) -1 
u3  57075  IST=lfN5T 
u3  57070  I SS - 1 »N3 

IFIP5RSCCISS, 1ST  ,K)  .LE.. 0001!  GO  TO  57065 
DO  5/064  I  DS  =-M  1  *  M2 
10  - 1 DLABA(  IDS,  1ST  I 

C  FOR  DIVISIONS  IN  COMBAT  «DIV  =  NO.  WEAPONS  REMAINING  =  NO. AT  START 
C  OF  CYCLEM  FR ACT] UN  OF  SAMS  DEFENDING  COMBAT  UNITS  STILL  ALIVE! 

NP1 V  ( IN*  1$S«  ID!-HDIVU»HISS,ID!»CP$RSCAtISS,IST!/P5RSCUSS,IST,K!l 

57064  CONTINUE 

57065  IF (PSRSI (ISS, 1ST ,K J .LE . .0001!  GO  TO  57070 


13 


_ -  -  — ,  - 


Error  B7  (Cont*d) 


Corrected: 

C  RECOMPUTE  WO  I V  =  NO  .WEAPONS  OF  EACH  TYPE  IN  DIVISION  ID  TO 

C  REFLECT  RESULTS  OF  CURRENT  ENGAGEMENT 

tW=NWCK )-NDSAMS(K) -1 
DO  57075  I  ST  =1 ,N5T 
DO  57070  I SS=1 »N3 
IFINDSCKI.EQ.OIGOTO  57065 

IF IPSRSCI1 SS»IST»K).LE..0001)  GO  fC  57065  1  JCI001 

DO  57064  1 DS=M1,M2 
ID=I DLABA!  IDS,  1ST) 

C  FOR  DIVISIONS  IN  COMBAT  WDIV=  NO.  WEAPONS  REMAINING  =  NO. AT  START 

C  OF  CYCLE*! FRACTION  OF  SAMS  DEFEND  I  AG  COMBAT  UNITS  STILL  ALIVE) 

WDIVdW+lSS,  ID  )=WD  IVUW41SS,  ID )* IP5RSCA! 1 55 , 1ST I/PSRSC (ISS, IST.K) I 

57064  CONTINUE 

57065  IFIPSRSItISS, 1ST, KI.LE.. 0001)  GO  TC  5707C 


Error  B8:  Incorrect  relational  operator  used. 

Location:  Subroutine  ALLOCT  at  statement  12045. 

Discussion:  The  relational  expression  IRAC (IAC, 2,L) .LE. 5  is 
incorrect  since  the  parameter  IRAC  does  nor  contain  values  greater 
than  five. 

Corrective  Action:  Change  the  relational  operator  .LE.  to  .LT. 


Original: 

12041  CONTINUE 

GO  TO  12055 

12u45  IF  (  IRACUAC,2,L).LE.5.0R.WTA2.LE.SNA5BA«L))  GO  TO  12050 
FAAARZ(IAC.IS.L)=FAABAA( IAC.L) 

FAAERZI IAC,IS,L)=FAABAECIAC,L) 

FAASRZI  IAC,  IS,  L)=FAABAS  (IAC.L) 

GO  TL  12055 

1205'J  IF  ( I  RAC  (  IAC,2»L)  .L  T  .2)  GO  TO  12065 


Corrected: 


12040  CONTINUE 

GO  TO  12055 

12045  1F(IRACIIAC,2»L).LT.5.QR.WT AZ.LE.SNASBAIL) )  GC  TO  12050  C  JCI001 
FAAARZC IAC ,1 S, L) =F AABAA ! IAC,L  ) 

FAAERZI IAC .  1  5  »  L  )  =F AABAEC IAC.L) 

FAASRZilAC , IS, L)=FAABASf IAC.L) 

GO  TO  12055 

12050  IFilRAC(lAC,2,L).LT.2)  &0  TO  12065 
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Error  B9:  Parameter  FACSFC(IAC,IS,I)  is  not  reset  to  zero. 

Location;  Subroutine  ALLOCT  within  DO  loop  13005. 

Discussion ;  FACSFC(IAp,IS,I)  is  one  of  the  several  parameters 
that  contain  the  fractional  allocation  of  aircraft  type  IAC,  based  in 
region  IS  of  side  L  attacking  targets  in  region  KS  of  side  R  (where  I 
-  KS  +  NNR*  (L-l) ,  NNR  =  total  number  of  regions  for  side  L.  Whereas 
the  remaining  parameters— e.g . ,  FACAFC  (IAC, IS, I)  ,  etc.  — are  reset  to 
zero  within  DO  loop  13005  of  subroutine  ALLOCT,  parameter 
FACSFC (IAC, IS, I )  is  omitted. 

Corrective  Action:  Provide  a  statement  within  DO  loop  13005  of 
subroutine  ALLOCT  that  resets  the  parameter  FACSFC(IAC,IS,I)  to  zero. 

Original; 


DO  13005  KS=1,NS 
1-KS  +  NNRH L-l ) 
FACAFC  ( IAC  , I  S» 11=3 . 
FACEFC(  IACyIS.no. 
FAAAFFUAC.IS,  1)0. 
FAAAFR(IAC»IS*1)0. 
FAAFFFIIAC.IS.IIO. 
FAAEFRHAC.IS.IIO. 
FAIAFFUAC.IS,  1)0. 
FAIEFFI IAC.IS. 1J=0  . 
FAISFFdAC.IS.UO. 
FAASFRHAC,  IS,  HO. 
FAASFFHAC. IS, no. 
FABSFFI1AC ,15,11=0. 

Corrected; 


00  13005  K 5=1, NS 
I=KS-»NNR*f  L-l) 
FACAFCI  IAC  ,15, 1)0  . 
FACEFCtlAC,lS,I)0. 
FAAAFFUAC.IS, 1)0. 
FAAAFRtlAC.IS.nO. 
FAAEFFt  IAC  ,15,1)0  . 
FAAEFRtlAC,IS»I)0  . 
FAIAFFfIAC.I5.no. 
FA  lEFFflAC.IS.MO. 
FAISFFtlAC,IS,I)=0. 
FAASFRtlAC,I5,l)0. 
FAASFFUAC  ,15,  I)  =3  . 
FACSFCtIAC.15,  1)0. 
FABSFFtlAC,I5,110. 


Error  B10;  Expressions  do  not  adjust  for  PAA4  and  PAA5. 
Location;  Subroutine  ALLOCT  following  statement  13045. 


eg-uiaao^t  #\i  ./wn  wn  ,u. 1 .11 


Error  B10  (Cont'd) 


Discussion:  The  local  parameters  PAA4  and  PAA5  are  used  to  adjust 
the  fractional  allocations  of  aircraft  from  forward  airbases  assigned 
to  close  air  support  (CAS)  and  airbase  attack  and  escort  missions, 
respectively.  Specifically,  when  aircraft  from  rear  airbases  are 
diverted  from  their  primary  enemy  airbase  targets  to  CAS  targets 
because  of  range  constraints,  then  an  apportioned  number  of  aircraft 
from  forward  airbases  are  simultaneously  diverted  from  their  primary 
CAS  targets  to  enemy  airbase  targets,  provided  that  range  constraints 
permit  such  diversions.  For  example,  if  the  range  constraint  IF 
statement  at  13015  of  subroutine  ALLOCT  is  not  effected,  then  DO  loops 
13020  and  (possibly)  13025  are  performed.  Within  DO  loop  13025  the 
fractional  allocation  parameters  FAABAA ( IAC , L) ,  and  FAABAE ( I AC , L)  are 
adjusted  i  incremented)  by  parameters  PAA4  and  PAA5,  respectively. 
Later,  within  DO  loop  13060,  parameters  FACASA ( I AC , L)  and 
FACASE ( IAC , L)  are  adjusted  (decremented)  by  the  same  parameters  PAA4 
and  PAA5,  respectively.  A  similar  situation  occurs  for  the  IF 
statement  at  13030  and  DO  loops  13035  and  13040.  However,  if  program 
flow  causes  control  to  pass  through  IF  statement  13045,  then  the 
expected  incremented  adjustments  to  parameters  FAABAA  and  FAABAE  do 
not  occur. 


Corrective  Action:  Following  statement  13045  of  subroutine 
ALLOCT,  inc 'ement  the  expressions  FAA"*AA(IAC,L)  and  FAABAE (IAC, L)  by 
PAA4  ano  PAA',  respectively. 

Original: 

1 304  j  CONTINUE 

GO  TO  1 3v5  5 

13045  1F(  lkAClIAC.ltll.LT.5.0R.MTA2.LE.SWSB*IL))  GO  TO  13050 
FAAAFZ ( IAC  ,15,L)=F  AABAA ( IAC,L> 

FAAEFZI IAC ,1 5, L I =F AABAE I 1AC,L> 

FA  ASF  Z ( I  AC  ,  I S » L ) AAbAS ( IAC ,L) 

G3  TO  13C55 

Corrected: 

13040  CONTINUE 

GO  TO  13055 

13045  IF  (  1RACUAC,  1,1)  .LT.5.0R  .WT  A  Z  .L  E  .S  NASbA  1 1 )  )  GOTO 
FAAAFZC  IAC,  IS,  l )  =F  AAF-AA  (  I  AC  ,U  «P  AA4 
FAAEFZdAC,  I5,l)=F  AAPAEI  IAC.LMPAA5 
FAA5FZI IAC  ,!S,L)=F AAfcASf IAC.LI 
GO  TO  1 305  5 

Error  Bll:  Parameter  IRAC (IAC, 1, L)  is  not  checked  for  condition 
of  less  than  two. 

Location:  Subroutine  ALLOCT  at  statement  1“J50. 

Discussion:  Parameter  IRAC(IAC,1,L)  contains  index  values  ranging 
from  one  to  five  that  refer  to  range  values  of  type  IAC  aircraft  based 
on  forward  airbases  for  side  L.  Typically,  the  program  control  flows 
through  different  parts  of  the  aircraft  allocation  sections,  depending 
on  the  range  constraints  imposed  by  the  parameter  IRAC.  As  an 
example,  for  aircraft  based  on  rear  region  airbases  at  statement 
12050,  control  is  passed  to  statement  12065  if  IRAC(IAC,2,L)  is  less 


13050 


JC1001 

JCI001 
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Error  Bll  (Cont*d) 


than  two.  For  the  corresponding  situation  for  aircraft  based  on 
forward  region  airbases,  as  statement  13050  there  is  no  range 
constraint  check  for  IRAC (IAC, 1,L)  less  than  two. 

Corrective  Action;  (a)  Include  an  IF  statement  at  13050  in 
subroutine  ALLOCT  to  transfer  program  control  to  statement  13065  (a 
new  statement  number)  for  the  condition  IRAC(IAC,1,L) .LT.2.  This 
condition  implies  that  all  aircraft  of  type  IAC  based  forward  for  side 
L  are  by  range  constraint  to  be  assigned  airbase  defense  missions. 

(b)  At  the  new  statement  13065  set  the 
fractional  allocation  parameter  for  forward  airbase  defense 
( FAADFF ( IAC , IS , L) )  to  unity  reflecting  the  mission  allocation 
requirements  imposed  by  (a)  above. 

(c)  Following  the  new  statement  13065, 
transfer  program  control  to  statement  13080. 

(d)  If  the  coding  for  section  130  is  to  be 
similar  to  section  120  of  subroutine  ALLOCT,  then  new  statement  number 
13070  can  be  placed  at  the  beginning  of  the  DO  loop  13075,  and  a  new 
statement  giving  unconditional  transfer  to  13070  can  be  inserted 
following  DO  loop  13060.  The  statements  described  in  (b)  and  (c) 
above  can  then  be  inserted  between  the  new  unconditional  transfer 
statement  to  13070  and  statement  13070. 

Original: 

1 3C5  0  f 5PP -  0. 0 

1F(1RAC(1AC.1»L).LT.3)  temp=i.o 
APA1  =FAABAA( IAC , l ) +TEMP*FA I NDA II  AC  ,1  ) 

APA2=FAABAE( JAC,l»+TEMP*FAINDE 1 1  AC »L I 
APA3  -  FAABA  S(  I AC, L )  ■•■TEMP*  FA  ABAS  ( I  AC  ,L  > 

13  j55  FAAOFF ( I  AC  »I 5, L  >  =F  AABAU  ( IAC  ,L ) 

FACOFCC  IAC  »I  S  *  L  I  =  FAC ASD  ( I  AC  ,L  ) 

03  13060  KS=1,N5 
I  =  K  5+NNRM  L- 1 1 

FAC AFC ( I  AC , 1  $ , i ) -  i FAC  ASA (  IAC , L 1 ♦APA1-PAA4 )*FC ASSSt  J  S,KS»l ) 

FACE  F  C ( IAC ,15, I  1=  (FAC ASE ( I AC , L ) +APA2-PAA5 1 *FCASSS C 1 5 ,KS ,L > 
FACSFCUAC.IS,  D-  FAC  ASS  (I  AC  ,L  )  *  FC  ASSS  (1  5  ,KS,L  I 

1 3 'J 6 J  CONTINUE 

00  13075  KS- 1 ,N5 
I  -KS  +  NNR'ML-l) 

FABSFF(  IAC  ,15,  1 1  =  F  ABA  55  (I  S,KS  ,L  >=>  tFABSUP  Cl  AC  ,  L  HAPA31 

13075  CON  r I NUF 
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.  .  >- ir'  i I  iTr '  ft 


Error  Bll  (Cont'd) 


Corrected : 

13C50  IF  (IRACIIAC,1,LJ.LT.2)GDT0  13065  I  JCI001 

T£  HP  =  0.0 

IF C IPAC( 1AC,1>L) .LT.3)  TEMF=1.0 

APAl  =  FAAEAAnAC,L)*TEMP*FAINDAClAC,L)*PAA4  C  JC1001 

APA2  =  FAA6AF(1AC,L)  ♦TEHP.^FAIfiOEUAC  .LHPAA5  C  JCI001 

A3A3  =  FAACAStIAC,L)+TEMP*fAiNDS(IAC»L)  C  JCI001 


13055 


13050 


13065 


13070 


13075 

C 

13080 

13085 


FAADFFUAC.lS.Ll-FAABAOnAC.L) 

FACDFCtIAC,IS,L>=FACASD{ IAC.L) 

DO  13060  KS=1,NS 
1  =  KS-»NNR«(L-1) 

FACAFCI 1  AC ,15,11=  l FACAS A C 1 AC , L) -»APA1-PAA4 ) *FCASSS Cl SiKS ,L1 

FACEFCt  1  AC  » I S.  1 )  -  CFACASE  (I  AC,L )  *APA2-PAA5 )  *FCASSS  1 1 5  ,Ki  ,L  ) 
FACSFCt IAC,1S,I)=  FACASS { I  AC ,L )*FCASSS( IS ,KS,L 1 
CONTINUE 
GOTO  13070 
FAADFF<IAC,IS,L)=1  . 

GO  TU  13080 
DO  13075  K5=1,NS 
1  =  KS-»NNR*(  L— 1 ) 

FABSFFt IAC  ,15,11=  FAB ASS  Cl S ,KS ,L  IMFABSUPf  IAC,L)*APA3) 
CONTINUE 

CONTINUE 
CONTINUE 


JCI001 

JCI001 

JCI001 

JCI001 


Error  B12;  Parameter  FAINDS (IAC,L)  omitted. 

Location;  Subroutine  ALLOCT  before  statement  13055. 

Discussion:  The  expression  for  local  variable  APA3  contains  the 
term  TEMP*FAABAS (IAC,L) .  APA3  specifies  the  adjustment  to  both  SAM 
suppression  allocations  diverted  from  airbase  and  interdiction  target 
suppression  allocations  because  of  range  constraints  (or  "unworthy" 
target  constraints).  Thus,  the  term  in  question  should  reflect  the 
adjustments  in  allocation  diverted  from  interdiction  targets  (i.e., 
TEMP*FAINDS (IAC,L) ) . 

Corrective  Action;  Change  the  parameter  FAABAS (IAC, L)  to  the 
parameter  FAINDS(IAC,L)  in  the  affected  statement. 


Original : 


13*50  f£MP  =  0.0 

ip (  1 K  AC  {  IAC, 1 , L  > .LT.3)  TEMP=1.0 
APAJ  = FA ABA A I  1 AC , L 1 + TEMP*FA 1 NDA  « I  AC ,L ) 
APA2=FAABAE! J  AC , L ) ♦TEMP-FAINDE (I  AC ,L ) 
APA3=FAABAS< IAC.L) + TEMP* FAABAS (IAC ,L ) 
13055  FAADFF(IAC,IS,L)=FAAfcAD( IAC.L) 

FACDFC( IAC»J5,L1  =  FAC  A  50 ( I  AC  ,L  I 


Error  812  (Cont'd) 


Corrected: 


13050  lFdRACUAC,l,U.LT.2160T0  13065  I  JCI001 

T£  MP  =  0.0 

IFURACt  1AC,1,L).LT.3)  TEMP=1.0 

APA1=FAA£AA( IAC ,L) ♦TEMP^FAINDAI 1AC  »LI+PAA4  C  JC1001 

APA2=FAA6AE( IAC,l) +TEMP*FA JNDEtlAC ,L)*PAA5  C  JCI001 

A?A3  =  FA.ABASIIAC,L)+T£MP*FAiNX)SUAC,Ll  C  JC1001 

13055  FAADFF ( I  AC  »I S, L ) =F  AA6A0 ( I AC  t L 1 
FACOFC( IAC,1S,L)=  FACASD(1AC,L> 


Error  B13:  Questionable  use  of  air  combat  interaction  parameter 

CA. 

Location:  Subroutine  AOVL1  in  call  to  subroutine  ATRTDA  following 
DO  loop  6020. 

Discussion:  The  formal  parameter  CA  in  subroutine  ATRTDA 
represents  the  number  of  independent  air  combat  engagements  that  can 
occur  between  two  combative  elements  being  analyzed  by  ATRTDA.  The 
actual  parameter  used  in  the  CALL  statement  following  DO  loop  6020  of 
subroutine  A0VL1  is  CA,  which  was  initialized  to  the  value 
WIDS (IS) /WCACAS  (or  unity,  whichever  is  larger)  at  the  beginning  of 
subroutine  ATTR2.  This  value  of  CA  represents  the  number  of 
independent  engagements  between  CAS  aircraft  defending  across  the 
region  indexed  IS  for  side  K  against  enemy  (side  L)  aircraft 
penetrating  uniformly  across  the  region.  However,  the  CALL  statement 
to  ATRTDA  in  question  is  used  to  determine  the  air  combat  attrition  of 
CAS  defenders  against  airbase  target  and  interdiction  target  attack 
and  suppressor  aircraft  that  are  not  penetrating  uniformly  across  the 
region  but  only  in  a  number  of  corridors  given  by  the  parameter 
PENCOR (IS , L) .  Thus,  the  number  of  independent  combat  engagements  is 
parameter  PENCOR,  not  CA;  this  situation  is  similar  to  the  earlier 
statement,  which  calls  subroutine  ATRTED  following  DO  loop  5010,  in 
which  the  parameter  PENCOR  is,  in  fact,  used. 

Corrective  Action:  In  the  affected  CALL  statement,  substitute  the 
parameter  PENCOR (IS /L)  for  the  parameter  CA  as  the  actual  parameter 
corresponding  to  the  CA  formal  parameters  of  the  subroutine  ATRTDA. 
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*  C.. 


rr^zr’ 


Error  B13  (Cont'd) 


Prig inal ; 

6020  CONTlNUt 
C 

C  CALCULATE  ATTRITION  OF  DEFENDERS  i C) .ATT ACKER  SI A I .SUPPRESSORSIS I 
CALI.  AIR  ID  A(  ID  ,T  A,  T S.PDCOF B ( 1  , K»  , I  LMM , SUHM, SUHMl  ,PA JCR  U  ,L  I  . 

X  FSJDRI  l.L)  ,TUMH1,FKLAAI1,LI,FKLAAU,K»,AEDGEU,K),CA,N1,N2, 

x  DA, DK.DH.DC.AA.AK.AH.AD.SA.SK.SH.SDI 

DJ  6  ,'30  KAC-1.N2 

CAKA5I1.KAC.L1  -CAKASd.KAC.L  J  +  IDCIKAC)  ♦  DKIKAOJ/ 

1  AMAU  (1.0.SRACN  (KAC.2.KM 

Corrected: 


6020  CONTINUE 
C 

C  CALCULATE  ATTRITION  OF  DEFENDERS  I C) .ATTACKER SIA > .SUPPRESSORS! S) 

CALL  ATRTDAt  TD  »T  A. T  S, POt CFB ( 1 ,K ) .T UMM.5UNM.SUMM1 ,PA  JOR ( I.l ), 

X  PSJOkU.LI  .TUMH1  .FKLAAtl  ,L  J  .FKLAAI 1  ,KI  »AE  DOE  I 1  ,K  I  ,  PENCOR  tl  S ,L »C  JCI001 

X  ,M,N2,DA,DK,DH,D0.AA,AK,Art,AD,SA,SK,SH,SD>  C  JCI001 

DU  6030  KA C -  1 , N2 

CAKASIl .KAC.L) -CAXASIl , K AC , L )  «  IDDIKAC)  «  OK(KAC))/ 

1  APAXII1  .0,SRACH(KAC,2.K)) 

Error  B14:  Incorrect  use  of  region  index  IS  for  section  index 

1ST. 


Location:  Subroutine  ATTR2  in  CALL  statement  to  subroutine  ATSPSS 
following  DO  loop  21010. 

Discussion:  The  CALL  statement  to  subroutine  ATSPSS  in  question 
contains  the  actual  parameters  TAINTD(IS,K)  where  IS  is  the  current 
region  index  for  side  L  air  attacks.  However,  the  parameter 
TAIWTD (IST,K)  was  previously  initialized  at  the  beginning  of  DO  loop 
24010  in  subroutine  ATTR2,  where  the  index  1ST  refers  to  the  sectors 
contained  in  region  IS. 

Corrective  Action:  In  the  CALL  statement  to  subroutine  ATSPSS  in 
question,  change  the  actual  parameter  TAINTD(IS,K)  to  read 
TAINTD(IST.K) . 

Original : 

C  CAlCULAil  INTFRLIC  TIL'N  SUPPRESSION  A/C  VS  SAM  IPSRSIA)  ATTRITION 

CA!  L  A  I  SPSS! PS  RSI  A (I, 1ST  I, INTDJA.F SS5MSIL I.POSSPSCl) . PSSSSS (1,1), 
SUMH1.FKLASMIK  I.AMTSRS (1 ,K I ,PDP SS S 1 1 ,K I ,PK SS A( 1 ,K > , 

X  FKLSMAIKI.TAINTDUS.K)  ,N3, Nl.SA.SS.SK, SO. AA.AK, ADI 

C  SUPPRESSION  SORTIES  AL  I  V£ I A 1 .DAMAGED  ID  I .KILL £D(K )  AFTER  ENGAGEMENT 

Corrected: 

21010  CONTINUE 
C 

C  CALCULATE  INTERDICTION  SUPPRESSION  A/C  VS  SAH  IPSRSIAI  ATTRITION 
CALL  ATSPSSIPSRS1A  <I,IST),1NT0SA,F  SSSHSIl I.PDSSPSILl .PSSSSS ( 1,1! , 

X  SUNK  1 , FKLASN IK ) . AHTSR S  (1 .K I .PDPSSSI 1 ,K) .PKSSAt 1 *K)  . 

X  FKLSMAIKl.TAiNTOUST.K  I, K3, Nl.SA.SS.SK, SO.AA.AK.AOI  C  JCI001 

C  SUPPRESSION  SORTIES  ALIVEtAI .DANACED(O) .KILLEOIKI  AFTER  ENCASEMENT 
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Error  B15:  Incorrect  use  of  region  IS  for  sector  index  1ST 


Location:  Subroutine  ATTR2  in  CALL  statement  to  subroutine  ATRTSA 
following  DO  loop  23010. 

Discussion:  See  B14  above. 

Corrective  Action:  Similar  to  B14  above. 


Original : 

2301 J  CONTINUE 
C 

C  CALCULATE  INTERDICTION  ATTACK  VS  SAH  ATTRITION. 

C  THE  PROB.  OF  ABURTIN&  UNDAMAGED  =L.D,  AV6.  NO.  SHOTS  PER  SAM 

C  FIRE  CONTROL  CENTER  =  1.0 

CALL  ATRTSA!  PSRSIA  II,  I  ST  J  ,  T  A  ,P0P  SF  B(  1  ,K J .PKSSAIl ,K> .O.O.FKLSKAIKI , 
X  AKTSRS ( 1 ,K ) , 1 .0» TA INTO  (I S  tK ) tN3 , N 1 , AA »A K , A H , AD ) 

03  23025  IAC=1 ,N1 

Corrected: 


23010  CONTINUE 
t  . 

C  CALCULATE  INTERDICTION  ATTACK  Vi  SAM  ATTRITION. 

C  THE  PROB.  OF  ABORTING  UNDAMAGED  =  L‘.0t  AVG.  NO.  SHOTS  PER  SAM 

C  FIRE  CONTROL  CENTER  =1.0 

CALL  ATRTSAIPSRSIA 11, 1ST  I , TA .PDPSF El  1 ,K) ,PKSSAtl,K) *0 .0 t FKLSM A  IK  I  * 

X  AMTSRS  ll.K) ,1.0,TAINTD  IIST,KI,N3,N1,AA,AK,AH,AD)  C  JC1001 

00  23025  I  AC  =  1 iNl 

Error  B16:  Adjustment  to  parameter  ABASZA(IAC)  omitted. 

Location:  Subroutine  ATTR3  following  statement  26020. 

Discussion:  Following  the  calculated  attrition  from  air  combat 
between  aircraft  defending  rear  airbases  for  side  K  and  aircraft 
penetrating  the  rear  air  bases  for  side  L,  all  appropriate  parameters 
were  adjusted  (e.g.t  ABAARA(IAC) ,  etc.)  except  ABASZA(IAC). 

Corrective  Action:  Insert  the  appropriate  line  adjusting  the 
parameter  ABASZA(IAC). 

Original : 

2602  J  IF ( T  S ( I  AC)  .EC.C.01  GO  TO  26025 
TEMP=A5ASRA< 1ACI/T  S( 1AC I 
ABASRA ( 1  AC  I  =  1 C  MP*S A 1 1  At  I 
ABASRDI  IAC>  =  A8AStO  (  IAU+  IEMP*SO(IACI 
A8ASkK( 1  AC )  =  ABASRK (1 AC >♦ TEMP «SK I IAC) 

ABASRHI IAC)=ABASRri ( 1 AC  I ♦ TFMP *SH U AC ) 

TEMP=ABASZA(  IAO/TSCIAC) 

ABAS2PI  IAC)  =  ABASZDUAC)  +  TEMP*SC(IAC» 

A9AS2KI 1  AC ) : AB  ASZK ( 1AC)+TEMP*SKI IAC) 

ABA  SlH(  I  AC  I  ABASZrl  ( IAC  >*TEMP»SH(  I  AC) 

26025  CONTINUE 
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Error  B16  (Cont'd) 

Corrected: 

26020  IFCTSCI AC) .EC. 0.0)  GO  TO  26025 
TEMP= ABASRAC IAC )/T SOAC) 

ABASRAIIAC  I  =  TE  NP*S  A(  I  AC  ) 

ABASRDtlAC)=ABASRD  tIAC  ).«TEMP»SDt  IAC) 

A8ASRM  I  AC ) = Ab ASRK (IAC)  +  TEMF*SMIAC) 

ABASRHI  1AC  )  =  ABASRH  { I  AC )  •*  TEMP  *SH  U  AC ) 

TEMP=ABASZAt  IAO/T  StlAC) 

ABASZAI I AC )=TEKP»S All AC )  1  JCIOOl 

ABASZD(1AC)-ABASZD(1AC)*TEMP*SD(IAC) 

AB AS2K( I AC ) -AB ASZK (IAC)*TEMP*SK(1AC) 

ABASZHC1AC  )  =  ABAS2H  1 1  AC  I  •*  TEMP  *5Hl  I  AC ) 

26025  CONTINUE 


Error  B17:  Misuse  of  parameter  FKLASM(K). 

Location:  Subroutine  ATTR3  following  DO  loop  29010  in  call  to 
Subroutine  ATRTSA . 

Discussion:  The  formal  parameter  FKLSA  of  subroutine  ATRTSA 
represents  the  fraction  of  hits  that  are  lethal  when  a  SAM  shoots  at 
an  aircraft.  Tne  actual  parameter  used  in  the  call  to  ATRTSA 
following  DO  loop  29010  in  subroutine  ATTR3  is  FKLASM(K),  which 
represents  the  fraction  of  hits  tha*  are  lethal  when  an  enemy  aircraft 
shoots  at  a  SAM  weapon  on  side  K.  The  correct  parameter  to  be  used 
should  be  FKLSMA(K),  which  represents  the  fraction  of  hits  that  are 
lethal  when  a  SAM  weapon  of  side  L  shoots  at  an  enemy  aircraft. 

Corrective  Action:  Replace  FKLASM(K)  with  FKLSMA(K)  at  the 

appropriate  place  in  the  subroutine  call  statement. 


00  29010  1 AC=1 ,N1 

C  TA  =  REAR  ATTACK  ♦  C0MH2  ATTACK  ♦  CC1HM2  ESCORT  SORTIES 

TA(  IAC)-ABAARAUAC)+ABAAZAUAC  ltABAEZAflACl 
29010  CONTINUE 
C 

C  CALCULATE  AIRCRAFT  VS  BEIT  SAM  ATTRITION 

CAL:  AlRTSAI Al  R5RA  ,  TA ,  P0ASFB  IK  )  ,PK  LSA  (K  J  .PARHLSIK  )  ,FKL  ASH  IK )  , 

*  AMTl  RS  U,K),AN5!RS(K>,PENC0RClS,LI,N5,NltAA,AK,AH,AD) 

C  USE  ATRTSA  RESOlTS  TO  CAICUIATE  A/C  50RTIES  I  A) . (0) * (K ) , (H) 

Corrected: 

00  29010  !mCO,N1 

C  TA  =  REAR  ATTACK  ♦  CUHNZ  ATTACK  ♦  C0WHZ  ESCORT  SORTIES 
TA ( I  AC ) =A8 AARA  tl AC  MABAAZAtlAC  )*AB AE 2AI 1AC ) 

29013  CONTINUE 
C 

C  CALCULATE  AIRCRAFT  VS  BELT  SAM  ATTRITION 

CALL  ATRTSAIALRSRA.TA,PDASF6fK),PKLSACK), PARHLSIK), FKLSMACK),  C  JCIOOl 
x  AMTLRSU,K),ANSLR5iK>,FENC0RIIS,l),N5tNl,AA,AKfAHfAD) 

C  USE  ATRTSA  RESULTS  TO  CALCULATE  A/C  50RT1ES  «  A)  ,  CD  I  ,  IK )  ,  |H) 
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Error  B18:  Misuse  of  parameter  FKLASM(K) 


Location:  Subroutine  ATTR4  following  DO  loop  38099  in  call  to 
subroutine  ATFTSA. 

Discussion :  Same  as  error  B17. 

Corrective  Action:  Same  as  to  error  B17. 


Original : 

C 

C  CALCULATE  ATTACK  A /C  VS  COMMZ  BELT  SAM  ATTRITION 

CALL  ATRTSA! ALRSZA, ABAAZ A, PDA SFB I K  )  , PKL SAtK  ) f PARHLS (K I ,FKL ASM  CM  , 

X  AMTLRS  U,K)fANSLRSCK),PENCORUS,L)  ,N5 ,N1 ,AA, AK, AH, AD) 

C  USE  ATRTSA  RESULTS  TO  UPDATE  ATTACK  SORTIE  ARRAYS 

Corrected: 

3B099  CONTINUE 

(4000 )  AIRbASE  ATTACK  SOI TIESI ABAAZ)  VS.  BELT  SAMSIALRSZ)  IN  COMMZ 
C 

C  CALCULATE  ATTACK  A /C  VS  COMMZ  BELT  SAM  ATTRITION 

CALL  ATRTSAIALRSZA. ABAAZA.PDASFB IK  I  ,PKLSA IK ) ,PAR HLS IK ) .FKLSMACK 1  ,  C  JCI001 
X  AMTLRS (1,K), ANSLRS  IK  I  .PENCOR CIS ,L ) ,N5,N1 , AA.AK,AH,AD) 

C  USE  ATRTSA  RESULTS  TO  UPOATE  ATTACK  SORTIE  ARRAYS 

Error  B19:  Incorrect  determination  of  independent  engagement 
areas. 

Location:  In  subroutine  ATTR4  assignment  statement  for  parameter 
CA  following  label  40099. 

Discussion;  The  parameter  CA  contains  the  number  of  independent 
engagement  areas  and  is  used  a >  an  actual  parameter  in  the  subsequent 
call  to  subroutine  ATSPSS.  This  number  of  independent  engagement 
areas  for  the  present  engagement  should  be  a  minimum  of  (a)  the  number 
of  airbase  raids  to  COMMZ  a-ea  immediately  behind  the  enemy  region 
currently  being  evaluated  and  (b)  the  number  of  COMMZ  airbases 
immediately  behind  that  region.  However,  the  minimum  is  determined 
using  the  parameter  ABASEZ(K),  which  contains  the  total  number  of 
COMMZ  airbases. 

Corrective  Action:  Divide  ABASEZ(K)  by  NS  where  NS  contains  the 
total  number  of  enemy  regions.  This  divides  the  total  number  of  COMMZ 
airbases  behind  the  different  enemy  regions  on  an  equal  apportionment. 

Original: 

43099  CONTINUE 

C - 

C433J)  SUPPRESSION  SORTl ESIABASZ »  VS  COMMZ  POINT  DEFENSES  IPSRSZ) 

c - 

C  CA  =  NO.  ACTUAL  AIRBASES  ATTACKED  IN  CUMMZ 

CA  =  AMIN1 (UBABA  Z» AB  ASEZIK ) I 


2  j 


.  -A  „„ 

- 1  i  ' 


Error  B19  (Cont'd) 


Corrected : 

40099  CONTINUE 

C4300)  SUPPRESSION  SURTI ESEABASZ )  VS  COMM2  POINT  DEFENSES  (PSRS  2) 

C  CA  =  NO.  ACTUAL  AIRBASES  ATTACKED  IN  COHMZ 

CA=ANIN1IUBABAZ,AB ASEZEK )/NS)  C  JCI001 

Error  B20:  Incorrect  update  for  parameter  PSRSZK(ISS). 

Location:  In  subroutine  ATTR4  within  DO  loop  43025. 

Discussion:  The  update  assignment  statement  for  parameter 
PSRSZK (ISS)  contains  the  parameter  PSRSZD(ISS)  on  the  right-hand  side. 

Corrective  Action:  Change  PSRSZD(ISS)  to  PSRSZK (ISS)  on  the 
right-hand  side  of  the  assignment  statement. 

Original : 

43020  CONTINUE 

DP  43025  I SS=1 ,N3 
PSRS Z A (ISSHSAIISS  J 
PSRSZDI ISSI=SDIISS I+PSRSZDIISS  I 
PSRSZK  I  ISS  l  =  SK  USS  1+PSRSZDC  ISS  » 

P5RSZS(ISS)=5St!SS I+PSRSZS i I SS ) 

43025  CONTINUE 
Corrected: 

43020  CONTINUE 

DO  43025  I SS  =1 »N3 

PSRSZA(ISSI  =  SAUS5  I 

PSRSZD I ISS  )  =  SD  f I 5S  I+PSR  SZDI ISS  > 

PSRSZK  (ISS  I  =  SK  I  ISS  MPSRSZKUSS) 

PSRSZS (ISS J  =  SS (ISS  I+PSRSZS  C  I  SS  I 
43025  CGNTINUf 

Error  B21:  Incorrect  use  of  independent  engagement  areas. 

Location:  In  subroutine  ATTR5  within  call  to  subroutine  ATSPSS 

following  DO  loop  50010. 

Discussion:  The  actual  parameter  CA  in  the  call  to  subroutine 
ATSPSS  should  contain  the  number  of  independent  engagement  areas  for 
active  division  point  SAMs  and  SAM  suppression  aircraft.  The  previous 
assignment  statement  for  CA,  however,  determined  the  number  of 
independent  engagement  areas  for  CAS  attack  and  defense  aircraft.  The 
value  assigned  to  CA  for  active  division  point  SAMs  and  SAM 
suppression  aircraft  should  be  similar  to  that  assigned  for  rear 
division  point  SAMs  and  SAM  suppression  aircraft,  viz.,  the  number  of 
divisions  involved  in  the  engagement. 

Corrective  Action:  The  actual  parameter  in  the  call  to  subroutine 
ATSPSS  should  be  changed  from  CA  to  NDS(IST,K)  where  NDS(IST,K) 
contains  the  number  of  active  divisions  in  sector  1ST  for  side  K. 


Error  B21  (Cont*d) 

Original : 

50010  CONTINUE 
C 

c  CALCULATE  SUPPRESSOR  ICASS)  VS.  PCI  NT  SAM  IPSRSC1  A  T  T  P  f  T  »  nil 

C  LL  ATSPSSIPSRSCA (1, Is  r ),CAS5A»FSS5MS(L) ,PDSSP5lL) ,PSS555fl  Li 

c  USE  ft TSPSS  «5;l?S 
Corrected: 

50010  CONTINUE 
C 

c  ^  CALCULATE  SUPPRESSOR  ICASSJ  VS.  POINT  SAM  IPSRSCI  ATTRITION 

CALL  ATSPSSIPSRSCA  (l#lST)tCAS5A,FSSSMS(L),PDS5PS(l) .PSSS5SI1  L I 
*  SUMH1 , FKLASM IK  J  * AMT SRS (1 fK ) »PDpS5Sfl »K) JpkSSAC 1  Kl ^  * 

c  JC1  FK LSMA  (K ) , TACASD 1 1  ST  »K  ),N3,Nl»SA,SS,SK,SD»AAtAK^AD J  I  JCIOOl 

C  USE  ATSPSS  RESULTS  TO  SET  SUPPRESSOR  ARRAYS 


—  -° r  B^:  Incorrect  actual  parameter  used  in  calls  to  BINOAT. 
ideation:  in  subroutine  ATRTSS  following  DO  loop  12. 

re  i.  iTrnfnn~waT~o  V**  thrCe  calls  to  subroutine  BINOAT  should  be 
returning  values  for  parametr.-s  SK,  SR,  and  SS,  respectively,  instead 
values  for  the  single  parameter  SK  are  returned  in  each  case. 

.  -S-Q-ttective — Action:  For  the  last  two  calls  to  subroutine  BINOAT 
change  the  actual  parameters  from  SK  to  SD  and  SS,  respectively. 

Original : 

ID  CONTINUE 

CALL  B1 NOA  I  ( A, 5, PD A,PK,C A,N1 ,UX,5K  ) 
iW  12  1  AC  = 1 j  NI 
PD ( 1  AC ) -PDA 

12  continue 


calculate  SK  ■  NU.  SAMS  K1LLEU  (LETHAL) 

CALL  8  1NUA  T  (  A,  S,  PD  <  FK  ,C  A  ,N  1  ,  NX  ,SK  ) 

CALCULATE  SO  =  NU.  SAMS  KILLED  (LETHAL  ♦  N0NLETHAL1 
CALL  6 1 NOA  T { A , S , PO ,PKK,CA,N1 ,NX,SK) 

CALCULATE  S3  =  TOTAL  NO.  SAMS  SUPPRESSED  (INCLUDES  TOTAL  KI’ISI 
CALI  8IN;AT(A,S,PD.PKKK,CA,Nl,NXfSK)  °T  AL  KKLSI 


Error  B22  (Cont'd) 


Cor’ acted : 

10  CONTINUE 

CALL  81M0AT(At  S»PDA,PK*CA,Nl»NX,5K) 

DO  12  1 AC= 1  ,N1 
PD ( I AC) =PDA 
12  CONTINUE 
C 

C  CALCULATE  SK  =  NO.  SAH5  KILLED  (LETHAL) 

CALL  61N0AT(A,S,PD ,PK ,C A ,N 1 , NX ,SK  1 
C 

C  CALCULATE  SO  =  NO.  SAMS  KILLED  (LETHAL  ♦  NONlETHALI 

CALL  B1NQAT(A,S,PD,PKK,CA,N1,NX,SD>  C  JCIOOl 

C 

C  CALCULATE  SS  =  TOTAL  NO.  SAMS  SUPPRESSED  (INCLUDES  TOTAL  KILLS) 

CALL  BINOAT(A,S,PD ,PKKK,CA ,N1,NX,SS>  C  JCIOOl 

Error  B23;  Parameter  REQSC  incorrectly  reset. 

Location:  In  subroutine  DEG  within  DO  loop  98. 

Discussion:  Local  parameter  REQSC  is  used  to  hold  the  total 

amount  of  airbase  supplies  required  by  COMMZ  airbases  for  the  current 
combat  cycle.  This  parameter  is  reset  within  DO  loop  98  for  each 
combht  sector  IS  and  is  set  only  on  the  condition  IS  equals  1  {i.e., 
on  the  first  pass  through  the  DO  loop).  Consequently,  '  REQSF  is 
incorrectly  reset  to  zero  when  the  DO  loop  is  complete. 

Corrective  Action:  Move  the  reset  assignment  statements  for  REQSC 
to  a  location  above  the  beginning  of  DO  loop  98. 

Original : 

00991=1,2 
KT  =NAC( l ) 

M=3-L 

C  Cl  =FRAC1 1  ON  OF  BASE  OPERATING  CAPABILITY  DESTROYED  BY  EACH 
C  ATTACKING  AIRCRAFT 

Cl =Cl PABA ( L ) 

2AC=0. 

C  CALCULATE  DEGRADATIONS  FOR  EACH  SECTOR  IS 
0098  I S= 1 , NS 
RE0SF  =0. 

REQSR=G . 

ZA  F  =  0  . 

ZAR=0. 

REQSC  =0 . 

C  REQSF, R  =  SUPPLY  CONSUMPTION  (TONS/DAY)  =4N0.A/C )*C0NSUMPT ION  RATE 

D03J  =  1,KT 

REQSf  =RF0SF*ACFST ( 1 ,IS,L )*CRSAC(1,L) 

RE0SR=REQSR+ACRST(  I  ,  I S ,L )*CRSAC» I ,L» 

IF (I S.EQ.l IREQSC =R E0SC ♦ ACC  2 ( 1 »L ) »CRSAC C I ,L ) 

C  ZAC  )F  ,R  =  TOTAL  NQ .  SUCCESSFUL  ABA  SORTIES  BY  ENEMY  LAST  CYCLE 

IF ( I S.EQ.l ) ZAC =ZAC  +SA8AZ (I ,M ) 

ZAF=ZAF»SABAF( I, IS, Ml 
3  ZAR " ZAR  +  SABAR ( I , I S ,M ) 

SDF  =  1  . 

S0R= 1 . 
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Error  B23  (Cont'd) 


Original  (Cont*d) 


C  SDF, SDR  ^FRACTION  OF  SORTIES  THAT  CAN  BE  SUPPLIED  -  SUP PL 1ES/REQMT . 
IF i SABF  S(I 5»l > .L  T.REQ5F )5DF  =  SABFS I  IS,L I/REQSF 
IF ( SABRS! 1 S, L )  .LT. REQSR ) SDR -SABRS  t IS ,L )/ REQSR 
C  OEGSRF.R  =  DEGRADATION  IN  AIRBASE  SORTIE  RATE  CAPABILITY 
C  =  MIN  OFIFRAC.  THAN  CAN  BE  SUPPLIED.FRACTION  NOT 


C  DESTROYED  BY  ENEMY  AIRBASE  ATTACKS) 

DE  GSRF (IStL)-AMINl  ( SDF , DEGSRFI IS  *L I*EXPC-2AF*C1I ) 

DEGSRRt IS,L)=AMIN1 I  SDR .DEGSRR ( I S ,L )*EXPt-2AR»Cl > ) 

C  SABFS, R  *  TONS  OF  SUPPLIES  REMAINING  AFTER  CURRENT  CYCLE 

SABFSIIS.L  J  =  AMAX1 !  0.,  SABFS  ( I  5  ,L  )-R  EQSF  ) 

SABRS I  IS, l )  =  AMAX1( 0-, SABRS IIS, L) -REQSR) 

98  CONTINUE 
SDC=1 .0 

C  CQMM2  SUPPLIES  REMAINING  AND  DEGRADATION 
IF (SABC2  IL  ).LT  .REOSC)SDC=SABCZ (L )/RECSC 
SABCZ|L)=AMAX1 |0 . , SABC Z(L)-REQSC) 

OFGSRCI L )  =  AM  I N 1  (  SD  C  ,DE  G  SRC IL )«EXP I -2AC«C1) ) 

99  CONTINUE 


Corrected: 

KT=NACILI 
M=3— L 

KTT=NACCM)  C  JCI001 

C  Cl  ^FRACTION  OF  BASE  OPERATING  CAPABILITY  DESTROYED  BY  EACH 

C  ATTACKING  AIRCRAFT 

C1*CLPABA(L) 

2AC=0. 

REQSC=0.  M  JCI001 

C  CALCULATE  DEGRADATION'S  FOR  EACH  SECTOR  IS 

DO  98  I S  =1  »N5 
REOSF  =0. 

REGSR=0. 

?AF=0. 

ZAR=0. 

C  REOSF, R  =  SUPPLY  CONSUMPTION  (TONS/DAY!  =LNU.A/C )*CONSUMPTION  RATE 


DO  3  1-1, KT 

REOSF  -RE OS  F-*AC  F5TC  I ,  IS  ,L  )*CRSAC  1 1 ,  II 
REQSR=REOSR*ACRST(IfIS,L)*CRSAC(I,L) 

IF  (IS.  E  0.1  )RECSC=REC5C-»ACC2II«L)*CRSAC(I,L) 

3  CONTINUE 

DO  2  )-l»KTT  I  UCI001 

C  2AC,F,R  =  TOTAL  NO.  SUCCESSFUL  ABA  SORTIES  BY  FNEMY  LA5T  CYCLE  M  JCI001 

1F(IS.EQ.1>2AC-2AC*SABAZII,M)  M  JCI001 

2AF=2AF*SAPAFI I, IS, Ml  M  JCI001 

2AR  =  ZAR«SABARM,IS.M)  M  JCI001 

2  CONTINUE  I  JC 1001 

SDF  =1 . 

SDR  =  1  . 


C  SDF, SDR  =FRACTION  OF  SORTIES  THAT  CAN  BE  SUPPLIED  ESUPPl IES/REOMT. 
IF ( SABFS I  IS, L)  .LT.RFQSF)SDF  =  SABFS(!S,L)/REQSF 
IF ( SABRS  (I 5»L). L T. REUSR) SO R=5ABR5(IS»L) /REQSR 
C  DEGSRF,R  =  DEGRADATION  IN  AIRBASE  SORTIE  RATE  CAPABILITY 
C  *  MIN  OFIFRAC.  THAN  CAN  BE  SUPPL 1  ED ,FR ACT  ION  NOT 

C  DESTROYED  BY  ENEMY  AIRBASE  ATTACKS) 


Error  B23  (Cont'd) 


Corrected  (Cont'd) 

DEGSRFdS,L)sAMIHl  (SDF ,DEGSRF I  IS ,L  )*EXP(-ZAF»Cl) )  C  XfOOl 

DEGSRRUS,L)=AMIN1I5DR,DEGSRRIIS,L)*EXPI-ZAR*CI))  C  JCI001 

C  SABFS.R  =  TONS  OF  SUPPLIES  REMAINING  AFTER  CURRENT  CYCLE 
SABFS(IS,L)=AMAX1<  O..SABFS  1 1  S»Ll-REQSF  I 
SABRSUS.L  )=AMAX1(  0 SABRS  Cl  5  ,L  I -R  EOSR  ) 

98  CONTINUE 
SDC-1.0 

C  COMMZ  SUPPLIES  REMAINING  AND  DEGRADATION 

IF  (SA8CZIL  I.LT  .REO  SOSDC=SABCZ  IL I/REOSC 
SABCZ (L ) -AHAX1 10 SABCZ 1 L I-REQSC I 

DEGSRCf L)=AM INI CSD C » DECS RCILJ*EXPt-ZAC*CIll  C  JCI001 

99  CONTINUE 

SECTION  C  -  NUCLEAR  COMBAT  SIMULATION 

Error  Cl:  Incorrect  index  used  for  combatant  side. 

Location:  In  subroutine  NUC3  in  assignment  statement  for 
parameter  MAXNPT. 

Discussion;  In  the  assignment  statement  •  for  MAXNPT,  the 
parametric  factor  FRMAX (ISU, JE,L)  is  used  on  the  right-hand  side. 
However,  in  the  context  of  the  DO  loop  200,  L  refers  to  the  index  of 
the  combatant  side  being  targetted  while  the  parameter  FRMAX ( ISU, JE,L) 
contains  the  maximum  fraction  to  type  ISU  subunits  that  side  L  may 
target  when  in  escalation  state  JE. 

Corrective  Action:  Use  the  index  K  (representing  the  targetting 
combatant  side)  in  the  parameter  FRMAX,  viz.,  FRMAX  (ISU,JE,K) . 

Original : 

C  DETERMINE  MAXIMUM  NUMBER  OF  SUBUNITS  ALLOWED  TO  BE  TARGETED 

C 

MAXNPT=NSUTDdSU,I  D  )*FRM AX d 5U  ,  JE , L )*0 .5 
C 

IMNPTUSU.IZ,  IDSI+NPTASUSU, IDS). GT  .MAXNPT)  GO  TO  10 
NPTASIISU. IDS)=NPTAS«ISU,ID5)+NPTt ISU, I Z, IDS) 

GO  TO  50 

Corrected: 

C  DETERMINE  MAXIMUM  NUMBER  OF  SUBUNITS  ALLOWED  TO  BE  TARGETED 
C 

MAXNPT=NSUTOdSUfIi))#FRMAXdSU,jE  ,K)«0.5  C  JCI001 

C 

1F(NPT(1SU,IZ,)DS) 4NPTAS I ! SU ,1  OS) «GT .MAXNPT )  GO  TO  10 
NPTASIISU, IDS) =NPTASIISU,IDS)*NPTC ISU, I Z, IDS) 

GO  TO  50 

Error  C2:  Incompatible  scaling  of  civilian  population  centers.  . 

Location:  In  subroutine  NUC4  in  data  statement  for  parameter 

POPLM  and  in  data  initialization  file  for  parameter  PDMMX(JE,L). 
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Error  C 2  (Cont’d) 

Discussion:  In  the  data  statement  for  parameter  POPLM  the  data 

correspond  to  population  center  thresholds  expressed  in  thousands  of 
people  (i.e.,  POPLM(l)  =  5.0  corresponds  to  5000  people),  whereas  the 
data  initialization  for  parameter  PDMMX(JE,L)  contains  the  escalation 
state  constraint  population  expressed  in  people  (i.e.,  DPMMX(1,1)  = 
3000,  corresponding  to  3000  people).  Since  these  two  parameters  are 
compared  in  subroutine  NUC4  (within  DO  loop  100)  ,  they  should  be 
scaled  the  same. 

Corrective  Action:  Scale  the  parameter  POPLM  data  in  the  data 
statement  to  reflect  population  center  thresholds  expressed  in  people 
instead  of  thousands  of  people. 

Original : 

C  PERCENTAGE  OF  ZONE  POPULATIONS  HELD  IN 

C  CITY  POPULATIONS  OF  '5000  *  10K  *25K  »50K  *10011 

C 

DATA (POPLM (L  ),L  =  1,5  1/5 -0,1 0.0, 25. 0,50. 0,100.0/ 

C 

Corrected: 

C  PERCENTAGE  OF  ZONE  POPULATIONS  HELD  IN 

C  CITY  POPULATIONS  OF  *5000  * 10K  *2'  K  »50K  *100K 

C 

DATA  P0PLM/5000., 10000., 25000., 50000., 100000-/ 

c 

Error  C3:  Incorrect  use  of  index  for  combatant  side. 

Location:  In  subroutine  NUC4 

(a)  in  assignment  statement  for  parameter  JE 

(b)  in  parameter  PDMMX  at  four  locations. 

Discussion:  In  the  context  of  DO  loop  600,  index  L  represents  the 

combatant  side  being  targetted.  However,  in  the  assignment  statement 
for  parameter  JE,  the  parameter  IESC (IS,ITC,L)  is  used,  representing 
the  escalation  state  for  targetting  side  L  in  sector  IS  against  target 
type  ITC.  Similarly,  the  parameter  PDMMX(JE,L)  representing  the 
minimum  population  of  a  city  which  constitutes  a  collateral  damage 
constraint  to  targetting  side  L  in  escalation  state  JE,  is  also  an 
inconsistent  use  of  the  index  L. 

Corrective  Action:  For  the  parameters  IESC  and  PDf'MX,  substitute 
the  index  K  representing  the  targetting  combatant  side  for  the  index 
L. 

Original : 

C  WHAT  15  THE  CURRENT  LEVEL  OF  E5CLATI0N 

C 

JE  =  lfc5CIIS,nC,Ll 
C 

C  - 

C  WHICH  BATTLE  AREA  IS  THE  ACTIVE  BATTLE  AREA 

C 

JB A  = IAEA  S( 15) 
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Error  C3  (Cont'd) 


Original  (Cont'd) 

C 

1FINDSI  IS.U.EQ.O)  00  TO  600 

FIND  INDEX  TO  CITY  SIZE  USED  FOR  TARGETING  CONSTRAINT 

DO  100  J=l,5 
KJ  =  J 

IFIPDHMXIJE»L1  .LE.POPLM  U)  )  GO  TO  200 
100  CONTINUE 

CITY  SIZE  FOR  CONSTRAINT  IS  GREATER  THAN  LARGEST  IN  DATA  BANK 
ZOLIM  =  PZPI IJBA.5  >*P0PLMt5)/PDHMXIJE,LI 

GO  TO  500 

IS  THE  CITY  SIZE  LESS  THAN  SMALLEST  ONE 
200  CONTINUE 

IF  (KJ.EO.l  ICO  TO  300 
CITY  SIZE  IS  BETWEEN  INDEX  1  AN  S 
KJB-KJ- 1 

ZOLIM  »  PZPItJBA.KJBI  ♦  IPZPII JBA.KJ)  -  PZP I ( JBA.KJBI) 

1  MPDMMX(JE»L I-  P0PLMIKJB1 l/CPOPLM  (KJ)  -  POPLMIKJBI) 

GO  TO  500 

LESS  THAN  SMALLEST  CITY 
300  CONTINUE 

ZOLIM  =  PZPI (JBA  *1 1+ ( POPLM  tl I-PDMMX C JE ,L1 I/P0PLMI1 1*11 .-PZPI ( JBA ,1 ») 

Corrected; 

WHAT  IS  THE  CURRENT  LEVEL  OF  ESCLATION 

JE  =  1ESCCIS,ITC  ,K)  C  JCIOOl 

WHICH  BATTLE  AREA  IS  THE  ACTIVE  BATTLE  AREA 

JBA-IABASt IS) 

C 

IF (NDSCIS.LJ .EO.OI  GO  TO  600 
C 

C  FIND  INDEX  TO  CITY  SIZE  USED  FOR  TARGETING  CONSTRAINT 
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Srror  C3  (Cont*d) 

Corrected  (Cont'd) 

C 

00  100  J=l,5 
KJ=J 
C 

1F(PDHHXUE»K)  .LE  •  P3PLH  { J)  )  60  TO  200  C  JCI001 

C 

100  CONTINUE 
C 

C  CITY  SIZE  FUR  CUNSTRAIN7  IS  GREATER  THAN  LARGEST  IN  DATA  BANK 
C 

ZOLIK  =  PZP1I5,JB»  J»P0PL  H  <  5  I /PDHNX  UE  ,K  I  C  JCI001 

c 
c 

GO  10  500 

c 

C  IS  THE  CITY  SIZE  LESS  THAN  SMALLEST  ONE 

C 

ZOO  CONTINUE 
C 

IF  CK J.EQ.l IGO  TO  300 
C 

C  CITY  SIZE  IS  BETWEEN  INDEX  1  AN  5 

C 

KJB-XJ-1 
C 

ZOLIH  *  PZPUKJ6.JBAI  «  fPZPI  IKJ  *  JEA1  -  PZP 1 1 K  JB  ,  JBA 1 1 
1  *  I PDMMX ( JE ,K  )  -  POPLMCKJBI )/(POPLN«KJ)  -  POFLMIKJBI)  C  JCI001 

C 

GO  TO  500 
C 

C  LESS  THAN  SMALLEST  CITY 

C 

300  CONTINUE 

Z0L1M=PZPI  ll,JBAI»IPOPLMII  )-PDMMXCJE,KI)/POPlMm*II.-PZPm.JeA»)C  JCI001 
C 

Error  C4;  Incorrect  accumulation  of  warhead  usage. 

Location;  In  subroutine  NUC5  in  assignment  accumulation 
statements  for  parameters  KWHDW,  KWHSW,  and  KWHTW  (following  labels 
510,  520,  and  530,  respectively). 

Discussion;  The  three  parameters  KWHDW(LIWS, IYL, IS) , 

KWHSW(LIWS, IYL, IS) ,  and  KWHTW ( LIWS , IYL, IS)  contain  the  accumulated 
number  of  nuclear  warheads  of  yield  index  IYL  delivered  by  the  side  L 
type  of  IWS  system  in  sector  IS  for  divisional,  sector,  and  theater 
delivery  systems,  respectively.  However,  following  labels  510,  520, 
and  530,  respectively,  these  parameters  are  incremented  by  unity 
regardless  of  the  actual  number  of  warheads  allocated  to  current 
targets  on  the  target  list.  Specifically,  multiple  targets  (and 
corresponding  allocation  of  multiple  warheads)  may  exist  for  division 
subunits  and  SSM  sites.  The  actual  number  of  warheads  allocated  to 
each  target  type  on  the  target  assignment  list  is  contained  in 
parameter  IWLBT  (except  for  airbase  targets,  in  which  case  the  number 
of  warheads  is  indeed  unity). 

Corrective  Action:  At  the  beginning  of  DO  loop  580,  assign  the 
actual  number  of  warheads  utilized  in  each  target  list  entry  to  a  new 
local  parameter  NWH.  The  number  utilized  is  contained  in  parameter 
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c 

c 

c 


irS'11  TheeSLJam«e^eiJS  an  airbase’  ‘"  that  case  the  number 

s^ssis.  assi9n"ent  -tatement 

Original : 

C  DIVISION  WEAPON  SYSTEMS' 

510  CONTINUE 

LI  WS= IWS+NOVNW III* C  L— 1 1 
JJH^4““s»1YL»iS)=KWHDW(LlWS,!YL.lSI+1 
C 

C  SECTOR  WEAPON  SYSTEMS 

C 

520  CONTINUE 

LIWS=IWS*N$CNWfl)*(L-l> 

KWHSWd  I WS , I YL  *15)  =KWHSW  ILIW5»IYL  .  IS)*1 
60  TO  580 
C 

c  THEATER  WEAPON  SYSTEMS 

530  CONTINUE 

LIMS=IWS+NTHNW(1 IML-l  ) 

rhhtwiliws,iyl,isi=kwhtmiliws*iyl,is?*i 

Corrected ; 

DO  580  IW=1,N1W 
ITC=IWLTLOIIW,l) 

ISUB  =  IWLCOTCIW,U 
NWH=IWLBT(IW,LI 

IFCITC-NE.1.AND.ISUB.E0.1)NWH=1 

KV^IWLCIW.tl 

INDEX*INDX1(KW,L) 

1WC=KDCDEN(INDEX,I  WS,  IPOS,  I  YU 

c 

C  DETERMINE  TYPE  OF  WEAPON  SYSTEM 
C 

GO  TO  (510, 520,530), IWC 

DIVISION  WEAPON  SYSTEMS 

510  CONTINUE 

L1WS=JW5«NDVNW ll)*Il-l) 

GDHT0<580S,IVL*IS,=Kl,HDM,LI‘,5,lYLf‘S,^N“H 


I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


c 

c 

c 


C  JCIOOl 


C 

C 

c 


SECTOR  WEAPON  SYSTEMS 
520  CONTINUE 

LlWS=IWS+NSCNV(l)*(l-ll 

KWHSWd  IWS,!YL,J5)  =KWHSW  IL  IMS,  IYL  ,  IS  )«NwH 
GO  TO  580 

THEATER  WEAPON  SYSTEMS 


C  JCIOOl 


i 

3 
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Error  C4  (Cont'd) 


Corrected  (Cont'd) 

530  CONTINUE 

L!NS=INS*NTHN«I1!ML-1! 

KUHTN(LlW$»fYL»IS) =KUHTU (IIWS,IYI,  ISI+NMH  C  JCI001 

C 

.  5S0  CONTINUE 
590  CONTINUE 

Error  C5;  Incorrect  determination  of  personnel  casualties  from 
latent  radiation  dose  pools. 

Location;  In  subroutine  within  DO  loop  3010. 

Discussion;  Personnel  who  have  not  suffered  immediate  permanent 
incapacitation  (IPI)  due  to  radiation  exposure  will  have  a  probability 
of  becoming  a  casualty.  The  parameter  OUT  contains  the  fraction  of 
personnel  in  a  particular  radiation  category  that  have  become 
casualties.  However,  in  order  to  decrease  the  total  number  of 
personnel  remaining  within  each  division,  this  fraction  is  subtracted 
directly  from  the  parameter  PDIV  instead  of  correctly  multiplying  by 
the  factor  (1-OUT) . 

Corrective  Action;  Form  the  factor  (1-OUT)  and  multiply  by  the 
current  value  of  PDIV(ID)  (the  actual  number  of  personnel  remaining  in 
division  labelled  ID)  to  determine  the  effect  of  latent  radiation  on 
these  remaining  personnel. 

Original ; 

DO  3000  IDS  =  1 , NT U T 
.  I'O  =  IDLASAl  IDS,  IS  } 

Uo  3010  iSS  = • I ,4 

If  (FI-RC  ( 10  ,IRSI  .EG.  3.1  GO  TO  3010 
iiJT  =,  FPRC  (10,  IRS)  "’Pf  R/TTIRO  HRS  ) 

IMHliT  .oT.  FPRCti  ^.IRSUOUT  =  F PR C l  ID  ,  IRS ) 
toivdi;  -  civiid:  -  ?•;- 
JFtPGivUD;  .Li.  ..i  -iltiili  *  0. 
fp^c  {  ID,  ir  $)  •=  r??ff»D.IRS  !  -  CUT 
302  0  CCN  i  1 5»'u 

Corrected ; 

DO  3010  IRS  -  1,4 

IF (FPRCt 10 ,1RS )  .EQ.  0.)  GO  TO  3010 
UUT  =  FPRC(I0,  IRSJ  *PER/TTIRDURSJ 
IF  (OUT  .GT.  FPRCII  0,IRS)  I0UT  -  FPRCUD.IRSI 
P0IVC1D»=PDIVCIDI* (1.— OUT ) 

IF(P0IV( 1DI.LT .O.iPDIVI ID)=0. 

FPRC  (10, IRS)  =  FPRCUD.IRSI  -  OUT 
3010  CONTINUE 

Error  C6;  Personnel  casualties  from  latent  radiation  do.se  pools 
are  not  addressed  for  reserve  divisions. 

Location;  In  subroutine  NUC6. 

Discussion;  The  error  discussed  in  C5  pertained  only  to  active 
divisions.  Reserve  divisions  whose  personnel  sustain  latent  radiation 
exposure  are  not  even  considered  in  casualty  determination. 

Corrective  Action;  Include  the  determination  of  casualties  from 
latent  radiation  exposure  for  reserve  divisions. 
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Corrected ; 

3300  CONTINUE 

00  3020  L  =  l,2 
NT0T=ND1BACKISS,L) 

DO  3025  IDS=1 » NTOT 
1D=IDL1BA( IDS, KISS ,L» 

00  3022  IR S=1.4 

IF (FPRC  CID,1RS).EQ.0.)G0T0  3022 
OUT  =  FPRC(1D,1RS)*PER/TTIRDCIRS) 

IF ( OUT  .GT.  FPRCIIOfIRSIIOUT  =  FPRCtID.IRSI 
PD  IV  CIO  I =P DIVC ID  I* 11. -OUT) 

IFlPDIVCIDl.LT  .O.IPDIVC  ID)'=0  • 

FPRC  I  ID* IRS)  =  FPRCCID.IRS)  -  OUT 
3022  CONTINUE 
3025  CONTINUE 
3020  CONTINUE 
RETURN 
END 

Error  C7:  Missing  branch  statements. 

Location:  In  subroutine  ESCLAT 

(a)  following  statement  label  460, 

(b)  following  statement  label  510, 

(c)  following  statement  label  700. 

Discussion:  In  each  of  the  three  instances,  a  test  (comparison) 

is  made  at  the  designated  statement  label  to  determine  whether  a 
conditional  branch  statement  labelled  1100  should  be  activated.  If  no 
conditional  branch  is  to  be  made,  the  context  of  the  coding  requires 
that  an  unconditional  branch  be  made  to  statement  labelled  1200. 


Corrective  Action:  Following  each  of  the  conditional  statements, 
insert  an  unconditional  branch  to  statement  labelled  1200. 


Original : 


450  IF < (L.EQ.l .AND .ISA  IKS ) .E Q. 2)  .AND . 

1  ( FEBAI IS)-FE8A(KS).GT.DPTH2(1)  ))  £0  TO  1100 

46 J  IF  C CL.E Q.2. AND. ISA IKS ) . E Q. 1 )  .AND  . 

1  ( FEBAI KS I-FEBA (1S).GT.DPTK2(2) II  GO  TO  1100 

C  £0  TO  1200 

C 

C  IS  CUMULATIVE  FE8A  MOVEMENT  PAST  T HftESHQLD  DEPTH 

C 

500  IF (L.EQ.l. AND. FEBA (1S »-F EBATZ US ) .GT .DPTH3C 1 )!  GO  TO  1100 
510  IF(L. EQ.2.AN0. FEBA TZ(IS) -FEBAI IS). CT.DPTH3I2I)  GO  TO  1100 
C  GO  TO  1200 
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Error  C7  (Cont*d) 

Original  (Cont*d) 


700  FRAK-QRAKt!S,L l/TQRAUS.Ll 

IF ( FRAK.GT .THF  RC  CL ) 1  GO  TO  1100 
C  GO  TO  1200 


Corrected ; 

450  IF  C ( L .EQ .1  .AND  . I SA (KS ) .EQ .2 )  .AND  . 

1  (FEBAtIS}-FEBA<KS).GT.DPTH2tl) 11  GO  TO  1100 

460  IFCCL.EQ.2.AN0.1SA IKS) .EQ.ll .AND. 

1  IFEBACKSI— FEBA(IS).GT*DPTH2t2))l  GO  TO  1100 

GO  TO  1200 

IS  CUMULATIVE  FEBA  MOVEMENT  PAST  THRESHOLD  DEPTH 


C  JCIG01 


500  IF (L.EQ.l. AND. FEbA  I ISI-FEBATZt 1S1 .GT .DPTH3I II)  GO  TO  1100 
510  IFCL.EQ.2.AND.FEBA TZ(I S l-FEBAC ISI .GT .DPTH3C2 > 1  GO  TO  1100  C  JCI001 
GO  TO  1200 

IS  RATE  OF  ADVANCE  SINCE  LAST  CYCLE  BEYOND  THRESHOLD  DEPTH 

600  IFCICYCLE.EQ.il  GO  TO  1200 
J=0 

00  650  JE-ltNESC 

IF (L.EQ.l. AND. CCFEBA  (1 S l.GT .DP2I JE,L) ) 1  GD  TO  620 
IF (L .EQ.2.AND. (0 .O-CFEBA  C I S 1 .GT . DP2 I JE ,1 1) )  GO  TO  620 
GO  TO  660 

620  IF ( J.LT.JE I  J=  JE 
650  CONTINUE 

DOES  SIDE  -L-  DESIRE  TO  USE  ESCL AT  ION  J 

660  DO  680  ITC=1,NITC 

IF|IOEL2(ITCfL).EQ.O)  GO  TO  680 
IFCIESCtlS,ITC,L!.lT.J)  XE5C  I  IS, ITC, L»  =  J 
680  CONTINUE 
GO  TO  1200 

IS  FRACTION  OF  URA  A/C  LOST  GREATER  THAN  THRESHOLD 

700  FRAKrQRAMlS.U/TQRAtlS.L) 

IFCFRAK.GT.THFRCILI)  GO  TO  1100 

GO  TO  1200  C  JCI001 

Error  C8:  Incorrect  determination  of  sector  bounds. 

Location:  In  subroutine  NDSYIN 

(a)  within  DO. loop  700. 

(b)  within  DO  loop  300, 

(c)  within  DO  loop  500. 


-  1  r  m 


Error  C8  (Cont'd) 


Discussion;  The  three  DO  loops. are  over  the  range  of  region  index 
IR  for  each  combatant  side*  L.  Within  these  DO  loops  the  sector  bounds 
(upper  bound  and  lower  bound)  for  the  region  associated  within  index 
IR  are  evaluated  using  parameter  NHSR.  NHSR  uses  a  "running"  index 
for  the  region  in  which  the  side  2  indices  follow  the  side  1 
indices.  However,  this  running  index  was  not  properly  generated 
within  the  DO  loops. 

Corrective  Action:  Generate  the  proper  running  index  IRR 

corresponding  to  region  index  IR;  that  is 

IRR  =  IR 


IF(L.EQ.Z) IRR  =  IR  +  NR(1) 

Use  this  running  index  to  determine  the  upper  and  lower  sector  bounds 
for  the  region  of  interest  within  each  DO  loop. 


Original : 


00  700  IR  =  1  ,NRS 
NACTL=NACCL' 

00  680  I  AC  =1 ,NACTL 
680  TACT ( IAC  * i R) =0 • 

WTT(IR1=0. 

151  =  1 

IFIIR.GT.il  IS1=NH 5RIIR-1I+1 

152  =  NHSR ( 1 R) 

00  650  15=151,152 
SD  300  IK=i,NRS 
iFIlITTt  1R|  .It.  .0001 J  GO  TO  300 
IS1  =1 

IFUR.GT.1I  IS1=NH SR<IR-1  Ml 
1S2=NHSR (!R) 

00  355  15=151,152 


00  500  I R  = 1  ,NR  5 

IFtHTHIRI  .LE.  .00011  GO  TO  500 

ISI  =1 

IF  ( IR.GT  .1  I  I51  =  NH«RfIR-lMl 

1S2=NHSR(IRI 

00  555  15=151,152 


Corrected : 


00  700  1R= 1 ,NRS 
NACTL=NAC( L) 

00  660  lAC-lsNACTL 
680  TACTI  1AC.IRM0. 

KTTI IR I =0. 

IRR=  IR 

IF |l.£C.211RR=IR*N»ll) 
ISI =NL5R (IRR  I 
I52=NH5RflRR) 

00  650  15=151,152 


I  JCI001 
I  JCI001 
C  JCI001 
C  JCI001 
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Error  C8  (Cont*d) 


Corrected  (Cont'd) 


00  300  1R=1,NRS 

IFtUTT(IR) .LE..0001)  00  TO  300 
JRR=IR 

IF(L«EQ»2)  IRR=IR-*NR(1) 

IS1 =NL5R( IRR ) 

IS2=NH5R (IRR) 

DO  355  IS*IS1,IS2 


DO  500  1R=1,NRS 

1FCMTT* IR1 .LE. .0001)  GO  TO  500 

1RR-IR 

IF  (L.EQ.2)  IRR  =  IR*NiUl) 

151- NLSRURR) 

152- NH5RCIRR) 

DO  555  1S=IS1,IS2 


1  JCI001 
1  JCIOOl 
C  JCIOOl 
C  JCI001 


1  JCIOOl 
I  JCI001 
C  JCI001 
C  JCIOOl 


Error  C9;  Error  in  DO  loop  limits. 

Location;  In  subroutine  NRGTGS  at  DO  loop  2660. 

Discussion;  The  heading  for  DO  loop  2660  has  the  index  limits  KJ 
=  2 ,NRT  where  NRT  was  previously  set  to  the  number  of  target  supply 
nodes  not  serving  the  active  battle  area.  However,  the  possibility  of 
NRT  =  1  was  not  tested,  in  which  case  the  entire  DO  loop  should  be 
skipped  (to  statement  labelled  2670) . 


Corrective  Action;  Before  the  DO  statement  heading,  insert  a 
conditional  GOTO  statement  that  tests  whether  parameter  NRT  is  less 
than  two  and  branches  to  statement  labelled  2670  if  the  test  is 
successful;  that  is  IF(NRT.EQ.l)GOTO  2670. 

Original ; 

DO  2660  KJ  =2  »NRT 
00  2650  JJ=1,J 
IF  (KRTIKJJ  .EQ.0I  GO  TO  2670 
IF  (KRT(KJ)  .FQ.  IC T €  JJ  ) )  GO  TO  2660 
2650  CONTINUE 
J=  J-U 

1CT ( J  )  =KRT CKJJ 
2660  CONTINUE 
2670  CONTINUE 

Corrected ; 

IF (NRT. EG. 1) GO  TO  2670  I  JCJOOI 

DO  2660  KJ*2,NRT 
00  2650  JJ=1,J 
IF(KRTIKJI.EQ.O)  GO  TO  2670 
IF (KRT(KJ) .EQ.  ICT( JJ))  GO  TO  2660 
2650  CONTINUE 
J=J*1 

ICTIJ)=MUT'6J) 

2660  CONTINUE 
2670  CONTINUE 
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Error  C10:  Parameter  ITYP  not  initialized. 

Location:  In  subroutine  NCZTGS. 

Discussion:  The  subroutine  PREYLD  that  is  called  within 
subroutine  NCZTGS  contains  an  actual  parameter  ITYP  (the  type  of 
target  subclass  currently  being  addressed)  .  However,  no  initial  value 
is  set  for  the  parameter  ITYP  in  subroutine  NCZTGS.  Since  this 
subroutine  addresses  those  targets  within  the  COMMZ  of  the  targetted 
side,  the  parameter  ITYP  should  be  set  to  2,  indicating  rear  airbases, 
supply  nodes  not  feeding  the  active  battle  areas,  long-range  SSM 
sites,  and  rear-area  divisions,  respectively,  for  target  subclasses  1, 
2,  3,  and  4. 

Corrective  Action:  At  the  beginning  of  subroutine  NCZTGS, 
initialize  the  parameter  ITYP  to  two;  that  is  ITYP  *  2. 


Original : 


C  DETERMINE  TYPE  OF  COMM 2  TARGET 

C 

ISU8= JTAR 
C 

C  IF  TARGET  IS  NOT  ALLOWED  AT  CURRENT  LEVEL  DF  ESCLAT I  ON  GO  TO  NEXT 
C  CATEGORY  OF  TARGETS 

C 

Corrected: 


C  DETERMINE  TYPE  OF  COMMZ  TARGET 
C 

1SUB= JTAR 

ITYP=2  I  JCI001 

C 

C  IF  TARGET  IS  NOT  ALLOWED  AT  CURRENT  LEVEL  OF  ESCLAT10N  GO  TO  NEXT 

C  CATEGORY  OF  TARGETS 

C 


Error  Cll:  Error  in  DO  loop  limits. 

Location:  In  subroutine  NCZTGS  at  DO  loop  280. 
Discussion:  See  Error  C9. 

Corrective  Action:  Similar  to  Error  C9. 


lUm-RCIII) 

J=I 

DQ  280  KJ=  2»NCT 
DO  275  JJ=1,J 

IF  IKCTtKJ)  .EQ.OI  CD  TO  285 
IFCKCTtKJ)  .EG.ICTt  JJ  )  I  GO  TO  280 
275  CONTINUE 
J*1 

1C T ( J I "KCT  (K  J I 
280  CONT.NUE 
285  CONTINUE 


-  i  i  'fc  1 


Error  Cll  (Cont’d) 


Corrected; 

ICTI I»=KCT*1» 

J=1 

IFCNC7.E0.1IG0  TO  285  I  JCI001 

DO  280  KJ=2,NCT 

DO  275 

IFCKCTtKJ) .EO.O)  GO  TO  285 

IF(KCT(KJ)  .EO.ICK  JJ )  l  GO  TO  280 
275  CONTINUE 

ICT ( J)=KCT (KJ) 

280  CONTINUE 
285  CONTINUE 

Error  C12:  Incorrect  recording  of  airbase  values. 

Location;  In  subroutine  NUCABS  in  DO  loop  250. 

Discussion;  In  subroutine  NUCABS  within  DO  loop  250  the  target 
values  are  scanned  for  airbases  whose  indices  are  held  within 
parameter  array  KCT{I) ,  the  values  being  held  in  parameter  array 
VAL(I).  Upon  exit  from  DO  loop  200,  the  parameter  IX  contains  the 
index  within  the  array  KCT  corresponding  to  the  airbase  with  the 
largest  value  VAL(IX),  this  value  being  held  in  local  parameter 
TEMP.  Following  this  exit  from  DO  loop  200,  a  test  is  made  to 
determine  whether  this  largest  airbase  value  is  greater  than  zero,  in 
which  case  the  airbase  index  corresponding  to  this  largest  value  is 
placed  at  the  top  of  the  current  list.  However,  the  value  tested  is 
VAL(I)  instead  of  VAL(IX),  which  contains  the  maximum.  Moreover,  if 
the  maximum  value  is  less  than  or  equal  to  zero,  the  local  parameter 
KI  is  reset  to  zero  and  forces  the  formal  parameter  to  incorrectly 
return  a  value  of  zero. 

Corrective  Action;  Following  DO  loop  200,  test  the  array  variable 
VAL(IX)  instead  of  VAL(I).  Also,  change  the  initialization  of  local 
parameter  KI  to  contain  the  number  of  airbases  having  nonzero  target 
value. 

Original ; 

DO  250  1=1 , NCT 
TEMP  =  0. 

DO  200  J  =  I, NCT 

IFfVALtJl  .IE.  TEMPI  GO  TO  200 

TEMP  =  VALfJ) 

IX  =  J 

200  CONTINUE 

c 

C  TEMP  IS  NOW  THE  LARGEST  VALUE  FROM  I  TO  NCT.  INTERCHANGE 

C  THESE  TNG  P0SITIGNS  THUS  ASSURING  THE  LARGEST  FIRST. 

C 

IFIVALII I.GT.0.07  SO  TO  260 
KI  =C 

GO  TL  280 
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Error  C12  (Cont*d) 


Original ; 

•260  CONTINUE 

ITEMP  =  KCTUXI 
KCTtlX)  =  KCTID 
KC T<I>  =  I  TEMP 
VAL(IX)  -  VALil) 

VALID  =  TEMP 
250  CONTINUE 
C 

C  CHECK  FOR  NO  PEOPLE  OR  SHELTERS  ON  AIRBASE 
C 


Corrected ; 

DO  250  1  =  l.NCT 

IX  =  I  I  JCI001 

TEMP  =  0. 

DO  200  J  =  I »NCT 

IFIVAL(J)  .LE.  TEMP)  GO  TO  200 

TEMP  =  VALCJ) 

IX  =  J 

200  CONTINUE 
C 

C  TEMP  IS  NOW  THE  LARGEST  VALUE  FROM  I  TO  NCT .  INTERCHANGE 

C  THESE  TMO  POSITIONS  THUS  ASSURING  THE  LARGEST  FIRST. 

C 

IF(VALIIX) .LE.O.OIGO  TO  260  C  JCI001 

C  KI-0  C  JCI001 

C  GO  TO  280  C  JCI001 

ITEMP  =  KCTIIX) 

KCTI1X)  =  KCT(I) 

KCTID  =  ITEMP 
VAL(IX)  =  VAim 
VALCI)  =  TEMP 
250  CONTINUE 
C 

C  CHECK  FOR  NO  PEOPLE  OR  SHELTERS  ON  AIRBASE 
C 


Error  C13:  Incorrect  number  of  weapons  assigned  (NWPN) . 

Location;  In  subroutine  PREYLD  after  statement  labelled  400. 

Discussion:  The  local  parameter  NWPN  that  contains  the  number  of 
weapons  to  be  assigned  to  the  current  target  list  is  initialized  to 
one  following  the  statement  labelled  400  for  SSM-type  targets. 
However,  the  formal  parameter  KRT  contains  the  number  of  SSM  sites 
targetted  and  may  contain  a  number  greater  than  one. 

Corrective  Action;  Following  the  statement  labelled  400,  set  the 
parameter  NWPN  equal  to  KRT  to  correctly  specify  the  number  of  weapons 
needed  for  the  SSM  targets. 
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Error  C13  (Cont'd) 


Original : 


C  SURFACE  TO  SURFACE  MISSILE  SITES 
C 

400  CONTINUE 

YPRE  =  YLTSSMI L I 

NttPN- 1 

C  0151=***** 

DI ST  =  75 
GO  TO  1000 

Corrected : 

NtfPN=K.RT 
C  DI 5T=*#* 

01  ST  =75 
C 

GO  TO  1000 


Error  C14:  Improper  decrease  in  nuclear  warhead  inventory. 

• 

Location;  In  subroutine  PREYLD  following  statement  labelled  2420. 

Discussion:  Following  statement  labelled  2420  after  a  weapons 
system  has  been  designated  for  a  particular  target,  the  parameter 
NIWAS  is  incremented  and  then  tested  to  determine  whether  it  exceeds 
100.  If  so,  the  target  list  is  considered  saturated  and  the  current 
target  is  not  included  in  the  list.  However,  the  weapon  delivery 
system  and  warhead  inventories  have  previously  been  adjusted  to 
account  for  the  weapons  system  selection. 


Corrective  Action;  Perform  the  test  to  determine  whether  NIWAS 
exceeds  100  at  the  beginning  of  subroutine  PREYLD  before  weapons  and 
warhead  inventory  adjustments. 


Original : 

2420  CONTINUE 

NIWAS=NIWAS*1 

C 

C  TEST  TO  SEE  !f  AVAILABLE  ARRAY  SIZE  IS  EXCEEDED 
C 

c 

IF  ( N I  WAS.GT.  100)  &0  TO  5000 

Corrected ; 

DIMENSION  IPAACI6) 

C 

C  TEST  TO  SEE  IF  AVAILABLE  ARRAY  SIZE  IS  EXCEEDED 
C 

IFININAS.GE.IOCIGO  TO  5000  M  JCI001 

C 

NrfPN - 1 
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\ 

} 


Error  C15:  Incorrect  combatant  side  index. 

Location;  In  subroutine  PREYLD  following  statement  labelled  2420 

(a)  adjustment  to  parameter  NWABA, 

(b)  adjustment  to  parameter  NWREG , 

(c)  adjustment  to  parameter  NWCZ. 

Discussion;  The  parameters,  NWABA,  NWREG,  and  NWCZ,  contain  the 
numbers  of  warheads  (weapons)  received  by  the  targetted  side  in  the 
active  battle  area,  the  rear  area,  and  the  C0MM2,  respectively.  These 
parameters  are  later  used  to  update  the  escalation  state  of  the 
targetted  side.  However,  the  combatant  side  index  in  the  statements 
used  to  adjust  these  parameters  in  subroutine  PREYLD  is  L,  which  is 
not  the  targetted  side  index  but  is,  instead,  the  targetting  side 
index. 

Corrective  Action:  At  the  beginning  of  subroutine  PREYLD,  specify 
the  targetted  side  index  K;  that  is, 

K  -  3  -  L, 

and  change  the  index  L  to  K  in  the  statements  following  labelled 
statement  2420  that  adjust  the  three  parameters,  NWABA,  NWREG,  and 
NWCZ. 


Original : 

C  INCREMENT  COUNT  OF  TARGETS  ATTACKED 

NWARAf  IS  , L  }  =  NWAB  A  ( 1  S » L  )  +  NWPN 
C 

'  GO  TL<  5000 
C 

241:  CONTINUE 

I W  L  I  D  5  {  I  ,L  1-KKT 
If  (1SUB.LQ.A)  IKLIOSII  , L ) -  I DV 
Ii/LCLT(  I  ,L  J=  ISU6 
IWLT2HCI ♦ L  I - I T  YP 
IF  (  16U&.ES.4J  IUlT  Zf-iC  I  ,L  J  =  ISU 
C 

C  INCREMENT  COUNT  CF  TARGETS  ATTACKED 

C 

*  IF ( I TC  .EQ.  ii  GO  TO  2412 
C 

C  and  —ONE—  WEAPON  TU  USAGE 
C  • 

N.vREG  ( I  SUB  ,  I  5»L )  -  NUREG  C 1 SU3  ,  IS  ,L»  ■»  1 
G'J  TU  2413 

2412  CONTINUE 

NWCZ  (ISUb,  IS.l  )  =  NWCZnSUB,IS,L  )  *  1 

2413  CGNTINUF 
C 


Error  C15  (Cont'd) 
Corrected : 


N«PN*1 

IS*K ISS  I  JCIOOI 

H*3*L 


• 

C  INCREMENT  COUNT  OF  TARGETS  ATTACKED 

NNABAC15.KJ  *  NWABAtlS.KI  ♦  NUPH  C  JCIOOI 

C 

GO  TO  SOOO 

c 

2410  CONTINUE 

1UL1DSI l ,LIXKRT 
IF  ( I  SUB  .E&  *4  )  IWU05CI,U*=I0V 
lNLCOTt I ,Llc15UB 
1UITZNII ,U»1TYP 
IFIISUB.E0.4J  IWLT ZNCI I=ISU 
C 

C  INCREMENT  COUNT  OF  TARGETS  ATTACKED 
C 

1FIITC  .EQ.  31  GO  TO  2412 
C 

C  ADD  —ONE—  WEAPON  TO  USAGE 
C 

NNREG ( I SUB , I S*K I  *  NWREG II SUB.IS.K 1  ♦  NUPN  C  X1001 

GO  TO  2413 

2412  CONTINUE 

NHCZUSUB.lS.Kl  «  NUCZIISUB.IS.KI  ♦  NUPN  C  JCIOOI 

2413  CONTINUE 


Error  C16:  Incorrect  adjustment  to  parameters  NWREG  and  NWCZ. 

Location:  In  subroutine  PREYLD  following  statements  labelled  2410 
and  2412. 


Discussion:  The  array  variables  NWREG  and  NWCZ  contain  the  number 
of  weapons  (warheads)  received  by  the  targetted  side  in  the  rear  area 
and  COMMZ ,  respectively.  These  variables  are  incremented  by  unity  for 
each  target  type  independent  of  the  number  of  targets  actually 
addressed  within  each  type.  Thus,  more  than  one  SSM  sits  may  be 
targetted  and  more  than  one  division  subunit  of  a  specified  type  may 
be  targetted.  The  increment  in  NWREG  and  NWCZ  should  reflect  this  by 
using  the  variable  NWPN  that  contains  the  number  of  warheads  and 
weapons  assigned  to  each  target  type. 

Corrective  Action:  In  the  statements  adjusting  the  parameters 
NWREG  and  NWCZ,  increment  these  parameters  by  the  variable  NWPN. 


Original : 


Error  C16  (Cont'd) 


Corrected: 

C  ADD  —ONE —  WEAPON  TO  USAGE 
C 

NW REG  II  SUB 1 1  Sr K  1  =  NWREG 1 1  SUB  *  IS «K  1  ♦  NWPN 
GO  TO  2413 

2412  CONTINUE 

NWCZI ISUBt I5»K  I  =  NWCZII5UB, IS,K J  ♦  NWPN 

2413  CONTINUE 


SECTION  D  -  GROUND,  AIR-GROUND,  AND  THEATER  CONTROL  SIMULATION 
Error  Dl:  Incorrect  parameter  used  for  air  munitions. 

Location:  In  subroutine  GC  before  DO  loop  430. 

Discussion:  The  local  parameter  N5  is  set  to  NW(L)  instead  of 
NAM(L) .  N5  is  later  used  as  an  index  limit  in  DO  loops  410  and  425  to 
operate  over  the  number  of  air  munitions  available  to  side  L. 

Corrective  Action:  Change  the  parameter  NW(L)  to  NAM (L)  in  the 
assignment  statement  for  parameter  N5. 

Original : 

C  41  ADJUST  THE  STANDARD  ALLOCATION. 

C  - 

C  THIS  SECTION  EXECUTED  ONLY  ON  FIRST  CYCLE  OF  GAME 

IF  I IC YCLE.NE .1  1  GO  TO  499 
DO  450  L-l  .2 
N3=NWlL ) 

K=3-L 
N4 -NWlK ) 

N5-NWIL ) 

DO  430  KW= 1 f N4 

IFIPWSFlKW.KI.EQ.O.Oi  GO  TO  415 
DO  405  IW=  1,N3 

SANA  (IWfKW  ,1  )-  SANA  (IWtKW,LI/PWSF(KW»K) 

SAWDtIWfKWtL )=SAWD (1W,KW,LJ/PW5FIKW»K) 

405  CONTINUE 

Corrected: 

C  41  ADJUST  THE  STANDARD  ALLOCATION. 

C  THIS  SECTION  EXECUTED  ONI Y  ON  FIRST  CYCLE  OF  GAME 

1FUCYCLE.NF.1»  GO  TO  499 
00  450  L  =1 »2 
N3=NWIL) 

K  =  3— L 
N4=NW IK  1 

N5=NAMCL)  C  JCI001 

DO  430  KW= 1 f N4 


C  JCI001 

C  JCI001 
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t - 4 


asdt  i  4*6i« 


Error  D1  (Cont'd) 

Corrected: 

IFIPITSFIKM.KI.EQ.O.OI  GQ  TO  <415 

00  405  1W=1 ,N3 

SAWA(1M,KW  ,L)=SAWA  ( 1W,KW ,L )/PW5F IKM,K) 

SAWDf  lif  (KW  ,L  )  =  SAWD  (  Ik.Kk  ,L  )/PW5F  IKk.K  ) 

405  CONTINUE 

Error  D2:  Incorrect  position  of  statement  for  initialization  of 
parameter  FMS. 

Location:  In  subroutine  FEBAMT  before  statement  label  1004. 

Discussion:  Statement  label  1004  allows  a  loop  back  from  the 

conditional  branch  following  statement  label  1569  in  the  event  that 
tie  forward  edge  of  battle  area  (FEBA)  movement  crosses  an  interval 
boundary.  Within  the  loop-back  section,  the  parameter  FMS  associated 
with  the  average  mobility  factor  for  side  L  in  sector  IS  is 
recalculated  for  the  new  interval  parameters.  However,  FMS  is  not 
reinitialized  to  zero  before  this  recalculation. 

Corrective  Action:  Place  the  initialization  statement  for  FMS  at 
or  after  the  statement  label  1004. 


PT IN  I =1  - 
CFEBA1=0. 

C  FMS  -  AVE.  MOBILITY  FACTOR  FOR  SECTOR  IS 

FMS=G. 

IST0P=0 

1004  KP=KPSt I  SI 

IF  (KP.EQ.4l  KP=2 
IF (KP.EQ.5 »  KP  =1 
KT  =KT ER I  ISI 
N1  =1 

N2=NDSI IS, 1) 

IF (L.EG. 1)  GO  TO  1005 
Nl=l+N2 

N2=N2-*N0StIS,2! 

1005  CQ  1010  ID  S=N1 ,N2 

Corrected: 

1004  KP.-asnsi 

IF  ( K f  . f  0  .4  )  KP  =2 
IF  {KP.EQ.5  )  KP  -1 
KT  =  K  T  E  F (IS) 

C  FMS  =  AVE.  MOBILITY  FACTOR  FOR  SECTOR  IS 

F  4  S -0  . 

IF{NOSUS,L).EO.O)GOTO  1011 
N1  =1 

i\'2  =  N 0 S (  IS,  II 

IF  ( L  .E 0 . 1 )  GO  TO  1005 

N 1  =  1  4  N  2 

N2  =  N  2  4N  05  (  IS, 2) 

1  COS  00  1010  ID  5  =  N1  ,N2 


M  JC1001 
M  JCI001 
I  JCJC01 
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Error  D3;  Possible  divide-by-zero  situation. 

Location:  In  subroutine  FEBAMT  following  DO  loop  1010. 

Discussion:  The  parameter  NDS(IS,L)  is  used  to  set  and  adjust  the 
index  limits  for  DO  loop  1010  and  is  also  used  immediately  following 
the  DO  loop  as  a  divisor  in  the  assignment  statement  for  local 
parameter  FMS.  The  possibility  exists  for  NDS(IS,L)  to  have  the  value 
zero,  in  which  case  the  DO  loop  1010  and  the  assignment  statement  for 
FMS  should  be  bypassed. 

Corrective  Action:  Perform  a  conditional  branch  to  the  statement 
following  the  assignment  statement  for  FMS,  if  the  parameter  NDS(IS,L) 
=  0. 


Original: 


10=  IDLABAl IDS, IS) 

IT=ITD<]D) 

FMS=FHS-*FMDP7  4 IT,KP,KT I 
1010  CONTINUE 

FM  S=  F MS/ND  S( I S ,L > 

C 

IFCIPRD.NE.I)  GO  TO  1500 
KRITE4M0T,110) 

NRITE4M0T, 221  FMS 

Corrected: 

1F4NDS4 15tL).EC.0)G0T0  1011  I  JCICOl 

N1  =1 

N2<NDS(  IS,  I) 

IF(l.EO.l)  GO  TO  1005 
N1  =  1  4  N2 

N2=K24ND5< IS, 2) 

1 G05  DO  1 010  ID  S  =  N1  ,N2 
1 D  =  1 DLAB A (  IDS,  IS) 

IT-ITD(IO) 

FMS^FHS^FMDPTt IT.KP.KT) 

1010  CONTINUE 

f MS=FMS/ND5( IS  .L ) 

1011  CONTINUE  I  JCI001 

Error  D4:  Incorrect  logical  operator  used. 

Location:  In  subroutine  FEBAMT  within  DO  loop  1534. 

Discussion:  DO  loop  1534  is  used  to  accumulate  the  weapons 
systems  values  VALD  for  the  defending  side  divisions  located  in  the 
first  inactive  battle  areas  above  a.,d  below  the  sector  IS  currently 
being  processed.  However,  the  conditional  branch  statement  within  DO 
loop  1534  incorrectly  uses  the  logical  operator  .OR.  instead  of  the 
operator  .AND.  to  exclude  divisions  not  properly  located. 

Corrective  Action:  Change  the  logical  operator  .OR.  to  the 
operator  .AND.. 


Error  D4  (Cont'd) 


Original ; 

c  both  flanks  have  excess  exposure,  cqhpute  defender  total  ground 
c  value  in  first  inactive  battle  areas  of  both  adjacent  sectors 

c  (VALD) 

1530  JBA=IABASC is-l I  ♦! SlGN*NS 
LBAMABASt  1S*1  »*1SIGN*NS 
vald^o. 

DO  1534  ID  =N1D ,N2D 

1FI JBA.NE.IBALDIID I.OR.LBA.NE.IBALDIIDII  GO  TO  1534 
VALO=VALD-tVDDSFUD  I 
1534  CONTINUE 

GO  TO  1550 

Corrected; 

C  BOTH  FLANKS  HAVE  EXCESS  EXPOSURE,  COMPUTE  DEFENDER  TOTAL  GROUND 
C  VALUE  IN  FIRST  INACI1VE  BATTLE  AREAS  OF  BOTH  ADJACENT  SECTORS 

C  (VALD) 

1530  JBA=IABAS( IS— 1 )  ♦! S1GN»NS 
LBA  =  I ABASt  IS-»1  )«!S  IGN*NS 
VALD  =0 . 

DO  1534  1D-MD.N2D 

IF ( JBA.NE. IBALDlID) .AND .LB A.NE •! BALD (ID))  GO  TO  1534  C  JC1001 

VALD~VALD«VDDSF( ID ) 

1534  CONTINUE 

GO  TO  1550 

Error  D5:  Inconsistent  sign  convention  used  for  CFEBA 
determination. 

Location:  In  subroutine  FEBAMT  after  statement  labelled  1565. 

Discussion:  In  the  parts  of  subroutine  FEBAMT  that  precede  line 

labelled  1565,  the  parameter  CFEBA(IS)  associated  with  the  change  in 
FEBA  in  sector  IS  has  a  positive  value  no  matter  which  combatant  side 
is  the  attacker.  Similarly,  the  parameter  CFEBAl  that  cor  ains  the 
cumulative  FEBA  change  across  one  or  more  intervals  is  also  positive 
independent  of  attacking  side.  However,  the  final  evaluation  of  the 
parameter  CFEBA(IS)  in  the  statement  following  1565  inconsistently 
contains  a  term  whose  sign  depends  on  the  attacker. 

Corrective  Action:  In  the  final  evaluation  of  CFEBA(IS)  multiply 
both  terms  CFEBAl  and  CFEBA (IS ) *PTINI  by  the  common  sign  parameter 
ASIGN. 


Original: 

O  "BA  (I  SI  -C  -  CcA!  ♦:  FFtM  I  SI-PT  I  KI  'ASIGN 
15 /:•  Cj‘.  Ilf.UE 

C  CALCLLA  IUI.S  CCKPlETED  F  CR  7  Hf  AT  t  S  ATTACKER,  SET  SIDE  L  =  T.lFATFR 

C  DEFENDER  A:JD  CL-'fliTE  FEBA  C.  A.iGF  F  LR  DLFELLlP.  Tfi  ATTACK 

3-  1  TA 

\t  IS  CONTINUE 
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Error  D5  (Cont'd) 

.  Corrected; 

C  FEBE  MOVEMENT  CALC  ULA’T  I ONS  HAVE  BEEN  COMPLETED  FOR  IS,  SET  FEBA  AT 

C  COMPUTED  LLCAT  1  JN(CTEKP)  ,  COMPUTE  TOTAL  FEBA  MOVEMENT  (Cf  EDA  1 ) 

1565  F  E  BA ( I  S  1  =C  TEMP 

CFEBAI  ISlMCFEEAl  +  IFLBAUS  )«PT1N1  »*ASIGN  r  jrinni 

15  70  CONTINUE  1  • 

C  CALCULATIONS  COMPLETED  FOR  THEATER  ATTACKER,  SET  SIDE  L  =  THEATER 

C  DEFENDER  AND  CGMPUTE  FEBA  CHANGE  FDR  DEFENDER  ON  ATTACK 

L=  3  —  1 TA 
1575  CONTINUE 


Error  D6;  Code  is  bypassed  by  omission  of  detailed  printout. 

Location;  In  subroutine  FEBAMT  following  DO  loop  1575. 

Discussion;  The  conditional  branch  statement  for  omitting 
detailed  printout  following  DO  loop  1575  causes  a  branch  to  statement 
labelled  1800  and  effectively  bypasses  the  FEBA  movement  calculations 
for  holding  posture  when  the  defending  side  withdraws. 

Corrective  Action;  Change  the  conditional  branch  statement  to 
branch  to  a  new  label  (that  is,  1599)  at  the  beginning  of  the 
previously  bypassed  section  number  17. 


Original; 


C 

IF  (  1  PRD.NE  .1  )  G [1  T  G  18  00 
WRITE (MOT  ,1111 

•<R  I  It  (HOT,  22)  (CF  E  BA  (1  S  >,)  S  •  l.MS) 

WRITE (MOT,  11 2) 

*R I T E ( MOT , 22  I  tFEBAUSJ.ISU.NS) 

NX  I T t (MOT, 1181 

*X I U  (MO  I, 101  ( I  NT  T  VI ( I  5  )  , 1 S  -  1  , N  5 ) 

WR  I  it (MOT, 119) 

WR 1IE (MOT, 1")  IKPS (1S) ,IS= l.NS I 
WR  ITU  MOT,  120) 

WRITE  (MOT,  10)  (K  TER  (IS), ISO,  NS) 

c  - - 

C  17)  WITHDRAW  0UE  TO  COMBAT  DEPLOYMENT. 

C  - 

C  WITHDRAW  F  EE A  FOR  OFFENDER  DEPLOYMENT  CHANGES  IN  SECTORS  WHERE 

C  THERE  IS  A  HOLDING  SITUATION 

AS  1 GN  =- 1 
DO  1720  L=  1 ,2 
DO  1710  IS  =  1  ,NS 

IF ( lkDRANl IS ,L  1.E0.0)  GO  TO  1710 
IFMSA(IS)  .GT.C)  GO  TO  1710 
CF  EBA  {  I  SI  --ASIGN-DDWDCDEL  ) 

FEBA(1S)--FEBA(IS)-:FE8A(1S) 

1710  CONTINUE 
AS IGN  =  1 
1720  CONTINUE 
C 
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Error  D6  (Cont'd) 


1 F ( IPRD.NE .1 )  GO  TO  1799 
WRITE (MOT, 11 II 

WRITE (MOT, 22)  (C FE B A (I  5 )  ,  I S =  1 , NS ) 

WR 1 T E  IHOT ,1121 

WR 1 7  E ( MOT , 22 )  (FEB  A  ( I  S  )  ,  1  S  =  1  ,NS) 

1799  CONTINUE 

C  - 

C  13)  DETERMINE  IF  THEATER  ATTACKER  CHANGES  FDR  NEXT  CYCLE. 

c  - 

C  THEATER  DEFENDER  BECOMES  THEATER  ATTACKER  IF  CURRENT  TA  NOT 

C  ATTACKING  CR  HOLDING  DUE  TO  CONSTRAINED  FLANK  IN  AT  LEAST  1 

C  SECTOR 

C  1 F  LAG  =  INDEX  TO  THEATER  ATTACKER  NEXT  CYCLE 

lfcDO  1 F  L  AG  = I T  A 


Corrected : 


IFdPRD.NE  .1)  GO  TO  1S99  C  JCIOOl 

WR  1 TE (MOT ,111) 

WRITE (MOT, 22 )  (CFE BA (I S I  ,1 S  =  1 , NS  I 
WR IT E (MOT ,  11 2) 

WR ITE (MOT , 22  I  (  F E 3  A (  I  S  )  ,  I  S  =  1 , NS) 

WRITE (MOT, 118) 

WRITE  (.MOT,  10)  (  1  NT  t  VL  (  1  5  I  »  I S  =1  ,NS ) 

WRITEIMOT, 119) 

WRITE (MOT, 10)  (KPS (1S) , 15=1 , NS) 

WR ITE (MOT , 120. 

WRITE(MOT.IO)  (KTER(IS) ,15=1 ,NS) 

1599  CONTINUE  I  JCIOOl 

C  17)  WITHDRAW  DUE  TO  COMBAT  DEPLOYMENT. 

C  - 

C  WITHDRAW  FFBA  FOR  DEFENDER  DEPLOYMENT  CHANGES  IN  SECTORS  WHERE 

C  THERE  IS  A  HOLDING  SITUATION 

AS IGN=1  C  JCIOOl 

00  1720  L=  1 , 2 
DO  1710  I S  =1 ,NS 

IF (IWDRAKt IS,L ).E0  .01  GO  TO  1710 
1FUSAU5)  .GT.Ol  GO  TO  1710 
CFE3AllS)  =  ASIGf.~D0KDCD(L) 

FE?A( IS) =FFEA( ISI^IFEBAtlS)  C  JCIOOl 

1710  CONTINUE 

AS  I GN  =— 1  C  JCIOOl 

1720  CONTINUE 

Error  D7:  Inconsistent  use  of  sign  for  parameter  CFEBA. 

Location:  In  subroutine  FEBAMT  within  DO  loop  1710. 

Discussion:  Within  DO  loop  1710  the  parameter  CFEBA(IS)  is 
determined  for  those  sectors  IS  which  are  in  a  holding  posture  and 
where  the  theater  defender  has  elected  to  withdraw.  However,  the  sign 
given  to  the  parameter  CFEBA(IS)  is  positive  for  side  2  withdrawing 
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Error  D7  (Cont'd) 
Original  (Cont'd) 


and  negative  for  side  1  withdrawing.  These  sign  conventions  are 
inconsistent  with  tne  conventions  in  preceding  sections  that  have 
CFEBA(IS)  positive  for  side  2  advancing  and  negative  for  side  1 
advancing. 

Corrective  Action;  (a)  Initially  set  the  parameter  ASIGN  =  +1 
before  DO  loop  1720  and  chen  to  ASIGN  =  -1  following  DO  loop  1710. 

(b)  Change  the  sign  in  the  assignee:- 1 
statement  for  the  parameter  FEBA(IS)  within  DO  loop  1710  [ th  ; 
FEBA(IS)  =  FEBA(IS)  +  CFEBA(IS)]. 

Original: 


C 

C 


17)  WITHDRAW  DUE  TO  COMBAT  DEPLOYMENT, 


C  WITHDRAW  FFBA  FOR  DEFENDER  DEPLOYMENT  CHANGES  IN  SECTORS  WHERE 

C  THERE  IS  A  HOLDING  SITUATION 


1710 


1720 


AS  I GN  =  1 

DO  1720  L  =  1 » 2 

DO  1710  1  S  =1 , N  S 

IF  (  1  yi'DRAK (  IS  ,L  I  .EQ  .0)  GO  TO 

I F ( 1 S A {  IS)  .GT.0J  GO  TO  1710 

CrE&Al  1  S)=ASlG).*COWGCD(L  ) 

FEFAI  1  S  )  z  E  h  E  A  (  I  S  )  FE 3  A l I S ) 

CONTINUE 

ASIGN®— 1 

CONTINUE 


C  JCI0C1 


1710 


C  JC 1 001 


C  JCICOl 


Corrected: 

C  17)  WITHDRAW  DUE  TO  COMBAT  DEPLOYMENT. 

c  - 

C  WITHDRAW  FFBA  FOR  DEFENOER  DEPLOYMENT  CHANGES  IN  SECTORS  WHERE 

C  THERE  IS  A  HOLDING  SITUATION 

AS  1 GN  =  1  C  JC1001 

DO  1720  L  z  1 »  2 
DO  1710  I  S  =1  jNS 

IF < 1 bCF AWI IS  ,L ) .ED  -  0)  GO  TO  1710 
IF  < I SA< I S)  .GT.OJ  GO  TO  1 710 
CFE3A(JS)zASl&f.»DDKDCD(L) 

FEEAI  IS)  =F  FEAl  IS)«-:FEBA(IS)  C  JC10G1 

1710  CONTINUE 

AS I  G  N  z  - 1  C  JC 1 001 

1720  CuNTINUE 


Error  D8 :  Local  utility  parameter  TEMPI  not  initialized. 

Location:  In  subroutine  FEBAMT  following  statement  labelled  2004. 

Discussion:  The  local  parameter  TEMPI  that  later  holds  the  value 
of  flank  exposure  on  a  sector's  lower  boundary  is  not  initialized  to 
zero. 
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— ii 


Error  D8  (Cont’d) 


Corrective  Action;  Initialize  the  parameter  TEMPI  to  zero 
following  the  statement  labelled  2004  (that  is,  TEMPI  =  0) . 


Original : 


C  IF  THERE  IS  MORE  THAN  1  SECTOR,  COMPUTE  AMOUNT  OF  EXPOSURE  OF  EACH 
C  FLANMTEMP, TEMPI  )  (FIRST  AND  LAST  SECTORS  HAVE  ONLY  1  FLANK1 

2004  !F(NS.EQ.1J  GO  TO  2020 
T£MP=0. 

IF  U  S.EQ.l  1  GO  TO  2005 
TEMP  =  F£BA{  IS-1  }-F£BA(l S) 

IFUS.EQ.NS)  GO  1 0  2006 

2005  TENP1=FEBA4IS-H)-FEBA(IS) 

2006  IF(L.NE.2>  GO  TO  2010 
TEMP=-TEMP 

TEMPI =-TEMPl 

C  GO  ON  TO  NEXT  SECT3R  IF  EXPOSURE  OF  BOTH  FLANKS  ACCEPTABLE 


Corrected ; 

c  if  there  is  more  than  i  sector,  compute  amount  of  exposure  of  each 

C  FLANK! TEMP .TEMPI J  (FIRST  AND  LAST  SECTORS  HAVE  ONLY  1  FLANKI 

2004  IF (NS. E 0.1  )  GO  TO  2020 
TEMP=0« 

TEMP  1 =0 .  !  JCI001 

IF ( 1 S.EO  .1 )  GO  TO  2005 
TEMP=FEBAC IS“1 I— FE8AIIS) 

IF(IS.EQ.NS)  GO  TO  2006 

2005  TEHP1=FFBAII5-H|— F  EBA ( I S I 

2006  IF(L.NE.21  GO  TO  2010 
TEMP=— TEMP 


Error  D9;  Incorrect  combatant  side  index  employed. 

Location:  In  subroutine  FEBAMT  within  statement  labelled  2106. 


Discussion:  statement  labelled  2106  is  a  conditional  branch  to 
statement  labelled  2150  when  a  sector  has  no  excessive  flank  exposure 
for  the  theater  attac>er  combatant  side  (given  by  side  index  ITA)  . 
However,  within  statement  2106  the  side  index  for  parameter  FEAFBA  is 
incorrectly  set  to  L. 

Corrective  Action:  Change  the  side  index  from  L  to  ITA  within 
parameter  FEAFBA. 


Original : 


TEMP  1-0. 

TE  MP2  =0  . 

IF ( I S.EQ.l  I  GO  TU  2105 

TEMPI =AS1GN*FEBA(1 S )-AS I GN»FEB Al IS-1 » 

IF  US. EQ. NS)  GO  TO  2106 
2105  TEHP2=ASIGN*FEBA(I S J-AS I GN *FEBAI I S *1 ) 

C  GO  ON  TO  NEXT  SECTOR  IF  EXPOSURE  OF  BOTH  FLANKS  ACCEPTABLE 


Error  D9  (Cont'd) 


Original  (Cont'd)  ■ 

2106  IFITEMPl.LE.FEAFBAflTAl  .AND .TEHP2.Lt  FEAFBA I L  1  I  GO  TO  2150 
IFnJSFRC.EO.il  GO  10  2110 

C  SECURITY  FORCE  RATIO  MOT  USED,  TA  IS  CONSTRAINED  IN  IS 
2108  ISCEF I IS  1= 1 
GO  TO  2150 


Corrected: 


TEMP  1=0. 

TEHP2=0. 

IFfIS.EO.l)  GO  TO  2105 

TEMPI =ASIGN*FEPA II S l-AS J6N*FE8Af IS-l 1 

IF  f 1S.EQ.NS1  GO  TO  2106 

2105  TEMP2=ASI&N*FEBAfl51-A5IGN*F£BAf  1S+1 1 

C  GO  ON  TO  NEXT  SECT3R  IF  EXPOSURE  OF  BOTH  FLANKS  ACCEPTABLE 

2106  TFfTEMPl.LE.FEAFBAfITAl . ANO .TEMP2 .LE.FEAFBAfITAll  GO  TO  2150C  JCI001 
IFlIUSFRC.EQ.il  GO  TO  2110 

C  SECURITY  FORCE  RATIO  NOT  USED,  TA  IS  CONSTRAINED  iN  IS 

2108  1SCEFC IS1-1 
GO  TO  2150 

Error  D10:  Incorrect  logical  operator  used. 

Location;  In  subroutine  FE8AMT  within  DO  loop  2134. 

Discussion:  Same  as  Error  D4. 

Corrective  Action;  Similar  to  Error  D4, 

Original- 

t  COMPUTE  DEFENDER  GROUND  VALUE  IN  CONSTRAINING  Sf.-Ti.tfS)  CVALD1 
lFfTEMPl.&T.FEAFBA(ITA).AND.TEMP2.GT . FEAFBA 1 1 T’  I  .  !  TO  2130 
IFfTtMPl.GT.  FEAFBA  UTAH  GO  TO  2135 
GO  TO  2136 

2130  JBA=1ABA5US-1  »+ASIGN*N5 
LB A= 1 AB ASf 15+1 1+AS 1GN»NS 
VALD=0. 

DO  2134  1D=N1D,N2D 

IFIJBA.NE.lBALDf ID J.OR.LBA.NE.IBALDIIDl 1  GO  TO  2134 
VALt)  =  VALG+VCOSFUO  1 
2134  CONTINUE 

GO  TO  2145 

Corrected : 

C  COMPUTE  DEFENDER  GROUND  VALUE  IN  CONSTRAINING  SECTORIS)  tVAlDl 
1F|TEMP1.&T.FEAFBA(ITA1.AND.TEMP2.GT.FEAFBAIITA1)  GO  TD  2130 
IFCTEMP1.GT. FEAFBA  UTAH  GO  TO  2135 
GO  TO  2136 

2130  JBA=IABASf 1S-1 1+AS IGN#NS 
LB A=I ABA S( IS+1 )+A$IGN*N5 
VALD=0- 

DO  2134  ID  =N1D ,N2D 
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Error  D10  (Cont’d) 


Corrected  (Cont'd) 

1FIJBA-NE.1BALDI IDI.AND.LBA.NE.IBALDIIDII  GO  TO  2134  C  JCI001 

VALD=VALD«VDDSF(ID  ) 

2134  CONTINUE 

GO  TO  2145 


Error  Dll:  Incorrect  reallocation  of  excess  SSM  attack  aircraft. 

Location:  In  subroutine  ASGATR 

(a)  before  statement  labelled  189, 

(b)  within  DO  loop  188. 

Discussion:  (a)  In  this  section  the  local  parameter  TNTA  contains 
the  number  of  SSM  targets  that  can  be  attacked  by  interdiction 
aircraft.  Similarly,  the  local  parameter  USE  contains  the  fraction  of 
SSM  targets  that  can  be  interdicted,  and  the  parameter  Q  contains  the 
fraction  of  SSM  targets  that  cannot  be  interdicted  (that  is,  Q  -  1.  - 
USE).  However,  the  parameter  Q  is  later  used  as  if  it  contained  the 
fraction  of  aircraft  that  are  not  required  for  SSM  interdiction. 

(b)  Within  DO  loop  188  the  conditional  branch 

statement  IF(U3E.GE.1.)G0  TO  19  is  invalid. 

Corrective  Action:  (a)  The  assignment  statements  for  the 
parameter  Q  should  be  changed  to  be  consistent  with  later  usage,  that 
is, 

Q  =  0 

IF (TNTA.GE.T) Q  =  1.  -  TNTA  x  RSIZE/S11  . 

Thus,  Q  is  zero  if  the  total  number  of  SSM  targets  that  can  be 

attacked  is  less  than  T — the  total  number  of  SSM  targets  located 

(i.e.,  no  excess  interdiction  raids  are  available).  However,  if 

excess  aircraft  exist  (i.e.,  TNTA  =  T) ,  then  Q  is  finite. 

(b)  Eliminate  the  conditional  branch 

statement. 


USE -1 NTA/T 
Q-l.-USE 

Z(  1 )  =  CPDSSMS  tl  )  =  SSMSFStl,IS,KL»/TJ*USE 
Z<2>  =  (POSSES (L )*SS  MSF5  1 2  »I 5 ,KL  )/T )«USE 
1B9  CONTINUE 
512=1'- 
S 1  3  =  *  J  - 

DO  1«8  I T= 1 , KA  C 
IF{TMTA.U.0.)GOTD190 
C  SSM  ATT  R  J  T  ION 

IFIUSE.GE.l.  IG0T019 

C  HIRE.  THERE  EXISTS  AN  XS  OF  A/C  OVER  SSM  SITES,  SO  APPORTION 
C  TO  OTHER  MISSIONS 


Error  Dll  (Cont'd) 


Corrected: 


189 


C 

C 

c 

c 


JCI 


0=0. 

IFCTUA.GE  .T  >0=1  .-T«TA«R  SI  2t/S  11 
Zt  ll^lPDSSMSID-SS  M5FSC1  ,IS,KL  )/T  )  «USti 
Zt 2  )  =  (PUSS MS  CL  )*SSMSfSC2,IS,Kl  )/Tl*USfc 
CONTINUE 
Si  2  =  0  . 

SI  3  =  0. 

00  1  a 3  I  T=  1  »KAC 
IF (TMTA.LE .O.JCOTOIVO 
IF  CUSE.GE.  1.  IGL'TUl  9 
SSM  ATTRITION 

hERt,  TriERE  EXISTS  AN  XS  OF  A/C  OVER  SSM  SITES,  SO  APPORTION 
Ti)  OTHER  MISSIONS 


JC1C01 
JC 1001 


JCIC01 

JCIG01 


Error  D12:  Incorrect  real-location  of  aircraft  to  rear  area 


divisions. 


Location:  In  subroutine  ASGATR  within  DO  loop  188. 


Discussion:  In  this  section  the  reallocation  of  excess  SSM 


interdiction  raids  to  both  rear  area  divisions  and  supply  nodes  occurs 
regardless  of  the  possibility  that  no  rear  area  divisions  exist.  To 
be  consistent  with  previous  reallocations  of  interdiction  aircraft,  a 
check  should  be  made  to  determine  whether  any  rear  area  divisions 
exist  (given  by  the  local  parameter  NOD).  If  none  exist,  then  all 
excess  aircraft  should  be  reallocated  to  interdict  supply  nodes. 


Corrective  Action:  With  DO  loop  188,  perform  a  conditional  branch 

=  0)  to  reallocate  all  excess  interdiction 


(upon  conditirn  NOD 
aircraft  supply  node  targets. 


Original: 


19 


201 

?) 


HERE,  THERE  EXISTS  AN  XS. OF  A/C  OVER  SSM  SITES,  SO  APPORTION 

TO  OTHER  MISSIONS 

AS=Q*vu,m 

V(  I  ,  IT  J  =  US  E  =' V (  1,  IT  I 

SI  =  PIA1M( I T , 2  T  L J+PIAIM  C I T , 3 , L  > 

IF  (SI. I  E.  0.151=1. 

VI  2 ,  !T)--V(2,  IT  )+CPlAIMCIT,2,L>/Sl}*XS 
V(3, IT! = VI 3, IT )♦ CPI  AIM l IT,3,L)/S1>  *XS 
l>l!20  1=1*2 
QZ  =  Z  (  1  >*T 

IF (QZ.GT.PKASSMtIT ,1 ,L ) )  GO  TO  201 

?!  11=0. 

GO  T  L'  2  0 

IF  (  j  (  I)  .GT.0.1  PCI  >  =  P(I  >*U.-PKA5SKCIT,I  VL  !/CZ)«*rZ  (!)  *V<  1  »IT)  1 
CONTINUE 


"1 
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HESS- 


Error  D12  (Cont'd) 


Corrected : 

C  HERB,  THERE  EXISTS  AN  XS  OF  A/C  OVER  SSH  SITES,  SO  APPORTION 
C  TO  OTHER  MISSIONS 
XS=0*V11,IT) 

V(  1  *  1 T ) =V{  I  ,  IT  )  — XS 
IF  (NOD.LE  .OJGUTCi  17 
SI =P l AIM t IT,  2,1 >*P I  AIM (IT, 3, L) 

IF (Sl-LE. 0.151=1  . 

V(2,m  =  VC2,in+iPlAIMnT,2,LJ/Sl)3XS 
V{:-',IT)=VI3,1THEPIA1.MC1T,3,U/S1)«XS 
GUTU  19 

17  VI 3, >T)=VI3, IT )  +  XS 

19  20  1=1,2 

1'  (OZ.GT.Ft'ASS:*!  TT  .1  ,L1>  GO  TO  201 
PC  1  )  =  u . 

GO  TO  20 

201  IFiiU)  .GT.O.J  r-U)  =  PC  J  J  «<  l.-PKASSMC  17,I,L!/QZ)»»(Z(I)»V(l,m) 

20  CONTINUE 

Error  D13:  Incorrect  assignment  to  region  index. 

Location;  In  subroutine  AIRGRD  before  DO  loop  60020. 

Discussion;  Within  DO  loop  60020  the  region  index  IR  is  used  in 
two  parameters  FAAAFF  and  FAAARF.  However,  the  parameter  IR  has  been 
incorrectly  set  to  a  "running"  index  value 

[that  is,  IR  =  IRT  =  IR  =  (L-l)  *  NR(1)]. 

Corrective  Action;  Eliminate  the  assignment  statement  for 
parameter  IR  preceding  DO  loop  60020. 


C  JCI001 
I  JC1001 


I  JC1001 
I  JCI001 


Original  t 

60019  CONTINUE 
IR= I RT 

DO  6C027  KS- JL  S, Jrt  S 
1  =KR+NR  1 1 )  =Ml-l  ) 

SJM= SUM* FAAAFF (I  AC • 1 R, I J^ACFSC 1AC,KS,L) 
SUM1 =SUM1*FAAARF  Cl  AC, I R, I J*ACR S C I A C ,KS ,L I 

60020  CONTINUE 

Corrected; 


60019  CONTINUE 

C  JCI  JR  = I kT  C  JCI001 

DO  60020  K5=JLS,JH5 
I=KR*NR(1J *(L-1I 

SUH  =  SUM ♦FAAAFF ( 1  AC , IE , I )»ACFSC1AC*KS,L) 

5UNl=SUMl  +  FAAARF«UC,lR,n»ACRSUAC,KS,LI 

60020  CONTINUE 
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Error  D14;  Incorrect  assignment  to  region  index. 
Location;  In  subroutine  AIRGRD  before  DO  loop  62020. 
Discussion:  Similar  to.Error  D13. 

Corrective  Action:  Similar  to  Error  D13. 


62019  CUN7 1  NOE 

n  - 1  f.  i 

DO  12023  KS- JL  S, Ji S 
I  =  KR  +  NR  U)  -ML-1) 

SJM  =  SUrl+  FAAAFF  MAC  ,  1R,1  J-ACFSC  1AC.KS  ,L1 
SJMi  -  SUV.  1  +  FAAARF  (I AC ,  I R » 11  *ACRS  ( I  AC  ,KS  ,L  J 

62020  CON T  INUfc 

Corrected: 


C  JCI001 


C  JCI001 
C  JCI0C1 


62019  CONTINUE 
C  IK=IRT 

DU  C 2020  K$=JL5,JHS 
I  =  K^  +  NP  1 1 )  => J  L  — 1 ) 

SU  F.  -S  UK  ♦  F  A  A  A  F  R  MAC*  IF, I  1  *ACFSl  IAC  ,KS,U 
SJK.1=SUM  *FAAARR  IIU.IR,  I)*ACRSC  lAC.KS.L) 
6202D  CONTINUE 


Error  D15:  Incorrect  allocation  parameters  used. 

Location:  In  subroutine  AIRGRD 

(a)  within  DO  loop  62020 

(b)  following  DO  loop  62020. 

Discussion:  The  section  containing  DO  loop  62020  (and  following) 
determines  the  number  of  aircraft  allocated  to  attack  enemy  rear- 
region  airbases.  However,  the  allocation  parameters  FAAAFF,  FAAARF , 
and  FAAAZF  are  associated  with  allocations  to  enemy  forward-region 
airbases. 


Corrective  Action:  Exchange  the  parameters  FAAAFR ,  FAAARR ,  and 
FAAAZR  for  the  parameters  FAAAFF,  FAAARF,  and  FAAAZF,  respectively. 


Original: 


DO  62020  KS- JL  S, S 
I=KR+NR  (l)ML-n 

SUM  =  SUM^ FAAAFF  *IAC, 1R, I )*ACF  S<  !AC,KS,L) 
SUH1 =SUM1 ♦FAAARF  tIAC,IR,II *ACR  S(IAC,KS,L) 
62020  CONTINUE 


SUM2=FAAAZF< IAC,KR  ,l)*ACCZ(IAC ,1 » 


56 


Error  D15  (Cont'd) 


Corrected: 


DO  62020  KS=JLS,JHS 
1=KR*NRI1) *CL— II 

SUH=SUM*f AAAFR II AC . IR,I )*ACFS( IAC«KS»L)  C  JCI001 

SUMl=SUMl*FAAARRIIACfIR»II*ACR5IIAC»KS,Ll  C  JCI001 

62020  CONTINUE 

SUM2=FAAAZR  (  I  AC  ,KR  ?L)*ACCZ(  I  AC  «L  )  C  JC1001 


Error  D16:  Incorrect  accumulation  of  aircraft  attacking  COMMZ. 

Location;  In  subroutine  AIRGRD  within  DO  loop  64015. 

Discussion:  Within  DO  loop  64015  the  local  parameters  SUM,  SUMl, 
and  SUM2  are  used  to  accumulate  the  total  number  of  aircraft  of  tyte 
IAC  that  are  allocated  to  attack  enemy  COMMZ  airbases.  Specifically, 
DO  loop  64005  contains  a  conditional  branch  statement  using  an 
undefined  sector  parameter  IS  which  is  irrelevant  for  COMMZ  airbases. 


Corrective  Action:  Within  and  following  DO  loop  64005: 


(a)  Eliminate  the  conditional  branch  to 

statement  labelled  64006. 

(b)  Eliminate  the  statement  labelled  64006. 

(c)  Nest  the  DO  loop  64010  inside  DO  loop 

64005. 

(d)  Eliminate  the  superfluous  assignment 

statement  for  index  IR. 

Original: 


C  SUM  AIRCRAFT  CVER  ALL  SECTOR  CONTAINED  IN  SAME  REGION  AS  SECTOR 

C  IS  FOR  ATTACKER 

C 

JR  =NR  I L  I 

DO  64005  I  R - 1 »  JR 


64005 

64C06 

C 


64G10 


iRT=JR+CL-lI*NRI  IJ 
JLS-NL5R ( IRT  J 
JHS  -NH5R  C I RT  I 

IF  (IS.GE  .JLS.AND.l  S.LE.JHS)  GO  TO  64006 

CONTINUE 

CONTINUE 


I R  =  1 R  T 

DO  64010  K  S  =  UL  S  ,  Jri  S 

SUM  =5UM*FAAAF2  I1AC,IR,L 1*ACF SI IAC ,KS,l > 
SUM1-SUM1*FAAARZ(IAC,IR,LI*ACRS| IAC.KS.L1 
CONTINUE 

SUM2  =  FAAAZ  Z ( I AC , L 1  *  ACC Zf I AC  ,  L I 
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Error  D16  (Cont'd) 

Corrected ; 

C  SUM  AIRCRAFT  OVER  ALL  SECTOR  CONTAINED  IN  SAME  REGION  AS  SECTOR 
C  IS  FOR  ATTACKER 

C 

JR=NR (L I 

DO  64005  I R  =1 »  JR 
IRT=IR*IL-1)*NRC 1! 

JLS=NLSR IIRT ) 

JHS=NHSR I I RT I 
C 

DO  64010  K  S=JL  S* JH  S 

5UM=SUM*FAAAFZ  Cl  AC.  IR, L I *ACF SCI AC  ,KS .L  ) 

SUM1=SUH1  +  FAAAR2(IU,IR,L)*ACRSUAC.KS,L> 

64010  CONTINUE 

64005  CONTINUE  M  JC100I 

SUM2=FAAAZZtIAC,L)»ACCZl I AC, LI 


Error  D17;  Incorrect  parameter  used  for  reconnaissance  aircraft 
attrition. 


Location:  In  subroutine  TC  within  DO  loop  20. 

Discussion:  The  local  parameter  SUMM(IM)  contains  the  probability 
that  a  given  type  of  army  reconnaissance  aircraft  is  attrited  while  on 
a  mission  of  type  IM  in  a  given  cycle.  However,  one  of  the  parameters 
used  to  determine  SUMM(IM)  is  RACAM(IS,IM,L)  instead  of  the  correct 
RAACM  ( IAAC ,  IM,L)  that  gives  the  rate  of  attrition  for  army 
reconnaissance  aircraft  type  IAAC  on  mission  of  type  IM  for  side  L. 

Corrective  Action:  In  the  assignment  statement  of  SUMM(IM) , 
substitute  the  parameter  RAACM ( IAAC , IM , L)  for  the  parameter 
RACAM (IS,IM,L) . 


Original : 


C  COMPUTE  ATTRITION  AND  REMAINING  INVENTORIES  TO  ARMY  AIR  CARRIERS. 

DO  30  L=l,2 
N3=NAAC( l) 

D3  25  15=1 »NS 
DO  25  I A  AC  =1  »N  3 
DO  20  1 M - 1  ,3 

SUMM(IM)  =  PAACAMI  IAAC ,IKfL  I  $R AC  AM  (I S , 1 M  ,L  I 
X  -ll.O-FRAACI ( IAAC«L ) I 

20  CONTINUE 
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Error  D17  (Cont'd) 


Corrected : 

C  COMPUTE  ATTRITION  AND  REMAINING  INVENTORIES  TO  ARMY  AIR  CARRIERS. 

00  30  1=1,2 
N3=NAACIL) 

DO  25  IS=1 »NS 
00  25  I AAC  =  1  *N3 
00  20  IM  =1 ,3 

SUMH I IH ) =PAACAMI IA AC ,1 M ,11 *R AACM ( 1 AAC , IM ,L) *1 1 .0-FRAAC 1 1 IAAC ,L » )  C  JCI001 
20  CONTINUE 

Error  P18:  Incorrect  determination  of  COMMZ  reconnaissance 
aircraft  attrition. 

Location:  In  subroutine  TC  following  DO  loop  42. 

Discussion:  The  assignment  statement  for  parameter  RACCZ(L)  that 
contains  the  updated  number  of  COMMZ  reconnaissance  aircraft  (after 
current  attrition)  is  incorrectly  placed  inside  DO  loop  48,  which  is 
indexed  over  the  regions  IR  for  side  L.  Instead,  a  new  local 
parameter,  say  TEMP4 ,  should  be  utilized  to  accumulate  the  average 
probability  that  a  reconnaissance  aircraft  is  attrited: 

TEMP4  =  l  TEMP2  *  NI/NS, 

IR 

where  TEMP2  (already  determined)  is  the  average  probability  that  a 
reconnaissance  aircraft  is  attrited  in  region  IR  during  a  cycle,  NI  is 
the  number  of  sectors  in  the  region  IR,  and  NR  is  the  total  number  of 
sectors. 

Corrective  Action:  Accumulate  the  new  local  parameter  TEMP4 
within  DO  loop  48  over  all  regions  IR.  Then,  following  DO  loop  48, 
determine  the  number  of  COMMZ  reconnaissance  aircraft  surviving;  that 
is. 


RACCZ(L)  =  AMAX1 {0 . 0 ,RACCZ (L) * (1 . -TEMP4) ] 


Original: 

C  SUM  15  TOTAL  NC.  RECUN.  A/C  DESTROYED  IN  REGION 
5UH  =  C • 

00  40  I M  =  1 , 3 
00  40  15=151 ,152 

SUM  =  SUH  ♦  RAAFRM  < IH,l )*RACAHI?S,  !H,L I^TEMP 
40  CONTINUE 

TE  MP2  =  SUM/ TOT 
TEMP3=i .-TFMP2 

C  REDUCE  INVENTORIES  IN  PROPORTION  TC  PERCENTAGE  OF  A/C  DESTROYED. 
DO  42  15  =  1 51 , 1  52 

RACFS  ( 1 5  ,  L  I  =  AM  AX  1  (  C.O  ,R  ACE  5  (  IS  ,U  *  TEMP  31 
RACRSI I  5,1 )  =  AMAX1( u.0,RACR5( IS,l)»TEMP3I 
42  CONTINUE 

RACCZlL)  =AHAXl  (0.D.RACC2  (L  )»  II  ,-T£MP2*FL0AT  (NI)/ FLOAT  INSH  1 
48  CONTINUE 
50  C0NT 1NUE 
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Error  D18  (Cont'd) 


Corrected; 

00  50  L=1 ,2 
TEMP*SRRAC  CL) 

TEMP4=0.  I  JCI001 

N1=HN2 

N2=NR(L)+N2 

C  LOOP  ON  SIDE  L  REGIONS 

00  48  1 RSN 1«N2 
IS  1=NLSR ( I R) 

IS2-NHSRC1R) 

C  TOT  IS  TOTAL  NO.  RECONNA ISANCE  A/C  IN  REGION  PLUS  PROPORTION  OF 

C  RECON.  A/C  IN  CQHMZ 

TOT=0- 

DO  35  1S=I SI  *  1 S2 

35  TOT=TOT+RACFS(  IS.L  )+RACRS(lS,L) 

NI  =1 S2—I 51 *1 

TOT=TOT-*IFLOAT  (Nil  /fLOAT  INS)  )*RACCZf L) 

1FCTOT.LE..OOODGO  TO  .48 

C  SUK  IS  TOTAL  NO.  RECON.  A/C  DESTROYED  IN  REGION 
SJM=0. 

00  40  IM  =  1 ,3 
DO  40  1S=IS1,1S2 

SUM  =  SUM  +  RAAFRNlIM,LI*RACAMCIS,IM,L)*TEHP 
40  CONTINUE 

TEMP2=SUM/T0T 

TEMP3=1.-TEMP2 

C  REDUCE  INVENTORIES  IN  PR0P0RT1UN  Tl!  PERCENTAGE  OF  A/C  DESTROYED. 

DO  42  I S  = I  5 1 »IS2 

RACF5C1 S*L )=AMAX14 0.0,RACFS I IS,L )*TEMP3) 

RACRS11S,L)=AHAX1C  0.0,RACR5I 1S,L)«TEMP3) 

42  CONTINUE 

TEMP4  =TEMP4*TE  MP2*  FLU AT  CNI)/FLrAT(NS)  I  JCI001 

4B  CONTINUE 

RACCZCL  )=AMAXI (O.O.RACCZ |L  )*C1 .— TEMP4) )  C  JCI001 

50  CONTINUE 

Error  D19:  Complex  errors  involving  updating  division  locations. 
Location:  In  subroutine  TC  within  DO  loop  2050, 

Discussion:  Three  major  errors  exist  with  DO  loop  2050: 

(a)  Local  parameter  N3  is  defined  in  the  first  part 
of  the  DO  loop  as  the  lower  index  limit  of  the  division  identification 
index  for  the  defending  side.  However,  this  parameter  is  redefined 
later  in  the  DO  loop  for  other  purposes,  then  used  in  DO  loop  2061  for 
its  original  purpose. 

(b)  For  the  defending  side,  divisions  located  within 
the  oli.  1st  inactive  battle  area  are  transferred  to  the  new  1st 
inactive  battle  area  (which  is  Identical  to  the  old  2nd  inactive 
battle  area) .  Later,  for  the  defending  side,  divisions  located  in  the 
old  2nd  inactive  battle  area  are  transferred  to  the  new  2nd  inactive 
battle  area.  However,  these  latter  divisions  now  erroneously  include 
the  former. 
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Error  D19  (Cont'd) 
Discussion  (Cont'd) 


(c)  The  code  does  not  allow  for  the  case  in  which  the 
FEBA  change  is  so  great  that  the  new  active  battle  area  is  not  an 
adjacent  battle  area  to  the  old  active  battle  area. 

Corrective  Action:  (a)  Use  a  new  local  parameter  N5  instead  of  N3 
as  the  limiting  index  in  DO  loops  2010,  2015,  2025,  and  2030. 

(b)  For  the  defending  side,  allow  divisions  in 
the  old  2nd  inactive  division  to  retreat  before  the  divisions  in  the 
old  1st  inactive  division. 

(c)  Allow  a  loop  back  to  check  whether  the  new 
FEBA  lies  beyond  the  boundary  of  the  new  active  battle  area. 

Original : 


C  20)  UPDATE  DIVISION  LOCATION  DUE  TO  FEBA  HOVEMENT. 

DO  2u50  I S  =1 »N5 

C  SAVE  OLD  ACTIVE  BATTLE  AREA  LOCATIONS  FOR  ONE  CYCLE 

IABASPI1S)  =  I  ABAS ( IS ) 

IBA  = 1 ABASt  IS) 

IF (FEBAC IS).LT.GDBA(IBA) )  GO  TO  2005 
C  RED  SIDE  IS  ADVANCING 

I S  I  G  N  =  1 
L=  1 
K=  2 

M  -  N  D  ( 1  )+MAD(i  )+l 
N2  =ND( 1 ) +M AT ( 1 )  +  ND(2) 

N3  =  1 
N4  =  ND  (  i ) 

G 3  Tu  2008 
2005  1 B  A 1  =  IBA-NS 

C  IF  FEBA  HAS  ADVANCED  PASSED  FlkST  BATTLE  AREA  IN  SECTOR,  SKIP 

IFUBAI.lE  .C  )  GO  10  2050 
C  IF  FEBA  5TILL  IN  ACTIVE  BATTLE  AREA,  SKIP 

IF ( F  E6A  « IS  ).GT ,GDBA(IBA1 1)  GO  TO  2C50 
C  BLUE  SIDE  IS  ADVANCING 

IS  I GN  =- 1 
L=  2 
K  - 1 
NI  =  1 

N2  =NL ( 1 ) 

N3  =  ND  ( 1 )  MADC1  J  +  1 
K4  -  ND(1)  *  ND ( 2 )  ♦  MAD  ( 1  ) 

2003  IBAF=IBA+1 SIGN*NS 
C  IF  FEBA  OUTSIDE  THEATER,  SKIP 

IF ( IBAF.GT.N6A.0R. IBAF.LE.O)  GO  TO  2050 
C  SET  NEW  ABA  AND  SUPPLY  NODE  SERVING  IT. 

1  ABAS ( I  5 )  =  IP AF 
I S  NBA ( I  BA  1  -  ISNABAI  IS,K) 

C  MOVE  DIVISION  FROM  OLD  ABA  TO  NFW  ABA 

N3  =  NL'S(  IS,  1)-»NCSI1  5,2) 

DO  2010  1 D  S- 1 , N3 
1 D  -  l DLA8 A (  IDS, IS) 


Error  D19  (Cont'd) 


Original  (Cont'd) 


IBALDI 1D)  =  1BAF 
20X0  CONTINUE 

C  HOVE  RETREATING  DIVISIONS  FROM  OLD  ABA  TO  NEK  1ST  INACTIVE  BA. 

IBA2-IBAF* ISIGN^NS 
N3  =  ND1BAUS,L> 

IF  IN3.EQ.0  )  GO  TO  2060 

IF  C IBA2.LE .O.OR.IBA2.CT.NBAI  GO  TQ  2020 
C  SET  NEW  LOCATIONS 

00  2015  IDV=1*N3 
10=  1DLIBAI  1DV,  IS VL  ) 

IBALD  4ID )=  1BA2 
2015  CONTINUE 

GQ  TO  2060 

C  THERE  IS  NO  NEW  1ST  IACTIVE  BA  FOR  DEFENDER  -  REHOVE  DIVISIONS 

C  FROM  THEATER. 

2020  DU  20-25  1DV=1,N3 

ID=IDLIBA(1DV,IS»L  ) 

IBALDI  10)  =  0 
2025  CONTINUE 

NOIBAl IS»L  1=0 
C 

C  *  MDVE  DEFENDERS  IN  SECOND  INACTIVE  BATTLE  AREA  BACK 

2060  CONTINUE 

18 A3  =  IBA2+I  SIGN^NS 

IF ( I 6A3. lE .0.0R.IBA3.GT .NBA)  GO  TO  2063 
DO  2061  ID=N3,N4 

IF  IIBALD(ID) -NE.1BA2)  GO  TO  2061 
IB ALD  4 1 D 1  =  I B A3 

2061  CONTINUE 
2063  CONTINUE 

2030  N3=NDIBA(IS,K> 

IF  (N3.EQ.0  IGO  TO  2137 
DO  2035  I D  V  =  1 »  N3 
10=  1DL1BAI  ICV,  IS,K  I 
IBALD  110)= 1BA 
2035  CONI  I NUE 

C  MOVE  ADVANCING  DIVISIONS  FROM  ULD  2ND  INACTIVE  TO  NEW  2ND  INACTIVE 

2037  ISIGN=-ISI ON 

I3A2= IBA+I SI GN  *N5 
1BA3=  IBA2+ ISIGN*NS 

IF i IBA3.LE .0.0R.IBA3.GT.NBA)  GO  TO  2050 
DO  2040  ID  =N1 »N2 

IF  (  IBALDI  ID)  .  rl  L  .  1 8  A  3 1  GO  TO  2040 
IBALDtID )= IBA2 
2040  CUNT  I NUE 
2050  CONTINUE 


i 

1 


Error  D19  (Cont*d) 


Corrected: 


C  20)  UPDATE  DIVISION  LOCATION  DUE  TD  FEBA  HUVEMENT. 

DO  2050  IS=l,NS 

C  SAVE  OLD  ACTIVE  BATTLE  AREA  LOCATIONS  FOR  ONE  CYCLE 

IABASP  ( 1  SI  =  1ABASHS1  C 

2002  IB  A  -  I  ABA  S I  IS) 

IF ( FEBA { l S  )  .L£  -GDB  A (IB A } 1  GO  TO  2005 

C  RED  SIDE  IS  ADVANCING 

IS  I GN=1 
L=  1 

K =2 

N1  =ND  C 1 ) -»M  AD  1 1  !♦! 

N2=N0m«HAD(I)«N0  (2) 

N3  =  1 
N4  =  NDC1) 

GO  TO  2008 
2005  IBA1 = IBA-N S 
TEHP=0. 

IFf  IBAl.LE .0)  GO  TO  2007 
TEMP=GDBAI IBA1 1 

C  IF  FEBA  STILL  IN  ACTIVE  BATTLE  AREA,  SKIP 

2007  1FIFEBAI ISJ.GT.TEHP)  GO  TO  2050 

C  BLUE  SIDE  IS  ADVANCING 

IS IGN-— l 
L  =  2 
K=  1 
N1  =1 

N2=NDtl 1 

N3  -  NDI1J  ♦  MADll  )  ■»  1 
N4  =  NDUJ  *  ND< 2)  ■»  NADU  ) 

2008  IBAF=1BA+ISIGN*NS 

C  IF  FEBA  OUTSIDE  THEATER,  SKIP 

IF  1 1BAF  . GT  .NBA .OR. IBAF . LE .u)  GD  TO  2050 
C  SET  NEW  ABA  AND  SUPPLY  NODE  SERVING  IT. 

IABAS 1 1 S)  =  IBAF 
ISNBA(I8A)=ISNABA( IS.KI 
C....  HOVE  DIVISIONS  FROH  OLD  ABA  TO  NEW  ABA 
N5=NDSfIS, 1 » ♦NDS C I  S,2) 

DO  2010  IDS=1,N5 
IC  =1DLABA( IDS, IS  1 
IBALDIID)=1BAF 
2010  CONTINUE 

C .  HOVt  RETREATING  DIVISIONS  FROH  OLD  2ND  TO  NEW  2ND  INACTIVE 

1BA2=IBAF«ISIGN*NS 
1BA3  =  IBA2*I5IGN*YS 

IFCIBA3.LE  .0.0R.IBA3.GT.NBA)  GO  TO  2063 
DO  2061  ID  =N3, N4 

IFUBALDUDJ  .NE.IBA2)  GU  TO  2061 
IBALO(IO)  =  IB A3 
2061  CONTINUE 
2063  CONTINUE 


JC1001 


1  JC 1001 
C  JCI001 
1  JCI001 

C  JC1001 


c  jciooi 

C  JCIOOI 


BA. 1  JCIOOI 

H  JCIOOI 
H  JCIOOI 
H  JCIOOI 
M  JCIOOI 
H  JCIOOI 
M  JCIOOI 
M  JCIOOI 
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Error  D19  (Cont'd) 


Corrected  (Cont'd) 


C.... 


c 


2015 

C 

C 

2020 


2025 

2060 

C.... 

2030 


2C35 

C.... 

2037 


2040 

2045 

2050 


MOVE  RETREATING  DIVISIONS  FROM  OLD  1ST  TO  NEW  1ST  INACTIVE  BA. 

N5=N0 ISA II 5 *L I  C  JCI001 

IF  ( N5.EQ .0  )  GO  TO  2060  C  JCI001 

IFCIBA2.LE.0.0E.IBA2.GT .NBA)  GO  TO  2020 
SET  NEW  LOCATIONS 

DO  2015  !DV=1,N5  C  JCIOOI 

1D  =  1DLIBA!  1 D V  ,  IS  »L  I 

IBALO  1101  =  IB A2 

CONTINUE 

GO  TO  2060 

THERE  IS  VC  NEW  1ST  IACTTVE  8A  FOR  DEFENDER  -  REMOVE  DIVISIONS 
FROM  THEATER. 

00  2025  1  DV=1 i N5  C  JCIOOI 

lD=IDLIBAt ID V  t  IS  ,  L  ) 

IBALDilO  1  =  0 
CONTINUE 


NO  1  BA  ( I S  »L  1  =0 
CONTINUE 

MOVE  ADVANCING  DIVISIONS  FORM  OLD  1ST  TO  NEW  1ST  INACTIVE  BA. 
N5=NDIBA(1S,K) 

IF  (N5  .EO.O  ICO  TO  23  37 
DO  2035  IDV=1,N5 
ID  =  IDLIBA(  ID V ,  IS  «K  I 
1BAL01I0)=IBA 
CONTINUE 

MOVE  ADVANCING  DI VISIONS  FROM  OLD  2ND  TO  NEW  2ND  INACTIVE  BA. 
IS IGN=— I  SI GN 
IB  A2  =  I  BA-»I  SIGN  #NS 
IBA3=IBA2* ISIGN*NS 

IF ( IBA3.LE .0.0R.IBA3.GT .NBA}  GO  TU  2045 
DO  2040  1 D  =N 1 «  N2 

1F(IBALDI1D).NE.1BA3)  GO  TO  2040 

1BALD|IDI=IBA2 

CONTINUE 

CONTINUE 

GOTO  2002 

CONTINUE 


I 

C 

c 

c 


c 


I 

I 


JCIOOI 

JCI001 

JCIOOI 

JCIOOI 


JCIOOI 


JCIOOI 

JCIOOI 


Error  D20:  Parameter  SACFRB (IS, 2,L)  is  erroneously  reset. 

Location;  In  subroutine  TC  within  DO  loop  2072. 

Discussion;  The  parameter  SACFRP tIS, 2,L)  that  contains  the  number 
of  aircraft  shelters  within  rear  region  of  sector  IS  for  side  L  is 
reset,  and  is  not  reassigned  to  finite  value  later. 

Corrective  Action;  Eliminate  the  statement  that  resets  the 
parameter  SACFRB(IS,2,L) . 

Original; 

DO  2072  1=1,2 
DO  2  c  72  I S  =  1 ,NS 

IF ( I ABASI I  SI . E U. I A  B ASP ( IS) 1  GO  TO  20 72 
ABAStFHS.Ll  =  0. 

SACFRBt  IS,  1,1)  *  J  . 

SACFRBI IS, 2, LI  =  0. 

2072  CONTINUE 


Error  D20  (Cont’d) 


Corrected: 

00  2072  1-1,2 
00  2072  IS-l.NS 

IF ( I ABAS ( IS) «E  0* IA6ASPC 151)  CO  TO  2072 
ABASEF1 IS»  L)  -  0. 

SACFRBC  IS,  1  ,L )  «  0. 

C  JCI  SACFRBC IS, 2,L )  -  0.  C  JCI001 

2072  CONTINUE 

Error  D21:  DO  statement  5503  is  missing. 

Location:  In  subroutine  TC  within  DO  loop  5550. 

Discussion:  Within  the  context  of  the  code,  a  DO  statement,  whose 
index  L  is  ranged  over  the  combatant  sides,  is  missing.  The  DO  label 
is  5503. 

Corrective  Action:  Insert  the  DO  statement  within  the  DO  loop 
5550;  that  is. 


DO  5503  L  -  1,2  ' 


Original: 


C 

C 

c 

v. 


55  ) 


>,  I  T i ;; K A V  ALL  ISTH-fcCl!  Vf  DIVISIONS  AND  REINFORCE  WITH  DIVISIONS 
UH  HI  CMC  ST  EFfCCTI  VCNtSS  . 


DU  555  •  1 S - i » N i 
N1  vi  -  *<i A (,  (  1  i  1 
L'O  5‘j  I  A  iV.  :  I  .N 
ST  I  4  AC  ,  I  S  1 1  )  O  . 

S  !  U  «  •  Cl;.  AC  ,  I  LI  HUi  (  !  .'(v  •  15  »L  1 

cm  *  iNut 


Corrected: 


C 

C 

C 

( 


55  ) 


5'-  DO 


WITHDRAW  ALL  INEFFECTIVE  DIVISIONS  AND  REINFORCE  WITH  DIVISIONS 
UF  HIGHEST  CFFECTI VENESS  . 


DO  5550  IS*1,NS 

f'2 -0  I  JCI001 

DO  5503  L-1,2  I  JCICOl 

MO-NAACCLI  • 

DO  55  OC  I  A  A  C  =  1  ,N10 
ST0RL(IAAC,IS,L»=3. 

STUR1 (IAAC ,I5»LI=AACDSC IAAC»1S,L) 

CONTINUE 
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Error  D22:  Parameter  N2  is  not  initialized. 

Location;  In  subroutine  TC  before  DO  loop  5503. 

Discussion:  The  local  parameter  N2  is  used  within  DO  loop  5503  to 
form  the  offset  for  the  division  identification  index  IDS.  However, 
N2  should  be  initialized  to  zero  before  entry  into  DO  loop  5503. 

Corrective  Action:  Initialize  N2  to  zero  before  DC  loop  5503. 


Original: 


C  - 

C  55)  WITHDRAW  ALL  INEFFECTIVE  DIVISIONS  AND  REINFORCE  WITH  DIVISIONS 
C  OF  HIGHEST  E  F  F  EC  TI  VENE  SS  . 

C  - 

00  555  :  I S  '1 »NS 
N1 0=  NAAC I L  ) 

00  5500  I A  AC  r  1  ,N  10 
STGR2I IAAC »IS,L) =3  . 

ST  OR  1 II AAC , I S»  L ) =A ACDS 1 1 AAC, 1 S ,L ) 

5500  CONTINUE 


Corrected: 


C  55 I  WITHDRAW  ALL  INEFFECTIVE  DIVISIONS  AND  REINFORCE  WITH  DIVISIONS 


:  OF  HJGHE5T  E FF EC TI VENESS . 

DO  5550  IS  -1 ,N  S 
N2  =0 

DO  5503  L=l,2 
Nl  0  =  NAAC I L ) 

DO  5500  IAAC  =  1  ,N1D 
5T0R21IAAC»I5»LI=3. 

5TOR1 ( IAAC  *15, LI=AACD5I IAAC,1S,L) 
5500  CONTINUE 


I  JCI001 
I  JCI001 


Error  D23:  Incorrect  side  index. 

Location:  In  subroutine  TC  following  DO  loop  5537, 

Discussion:  The  conditional  branch  statement  following  DO  loop 
5537  uses  a  side  index  L  instead  of  the  correct  index  1. 


Corrective  Action:  Change  the  side  index  from  L  to  1. 

Original : 

5537  CONTINUE 
C 

C  FINALLY  RECPNSI1TJTE  1 DL ABA 

C  IF  TLC  MANY  DIVISIONS  IN  ABA  ,  PROCRAM  TERMINATES 

IF  (Nt/SI  I  S>  L  )  +  ND5  (1  S,2).LE.MDDABA)  GO  TO  5539 
WRITE (MU  1,5536  1 

5538  FORMAT ( 5 OH  ICL  MANY  DIVISIONS  ASSIGNED  TU  A  SECTUR  IN  TC 
STOP  1111 

5539  CONTINUE 
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Error  D23  (Confd) 


Corrected: 

5537  CONTINUE 
C 

C  FINALLY  RECONSTITUTE  IOLASA 

C  IF  TOO  MANY  DIVISIONS  IN  ABA  ,  PROCRAM  TERMINATES 

iFtNDSIlS»lMNDS(IS,2).LE.HDDABA>  CD  TO  5539  C  JCIOOl 

WRT TE (HOT, 5538 ) 

5538  FP  MATI50H  TOO  MANY  DIVISIONS  ASSIGNED  TO  A  SECTCC  IN  TC 
'  jp  mi 

5539  CONTINUE 

Error  D24:  Incorrect  division-type  index  used. 

Location:  In  subroutine  TC  within  DO  loop  6526. 

Discussion:  Within  DO  loop  6526  local  parameter  TEMP2  contains 
the  apportioned  number  of  army  reconnaissance  aircraft  for  division  ID 
that  is  being  withdrawn.  However,  the  factor  FAACTD(ITl)  used  to 
evaluate  TEMP2  uses  index  ITl  for  the  division  type  instead  of  the 
correct  index  IT. 


Corrective  Action:  Substitute  index  IT  for  index  ITl  within  the 
factor  FAACTD  in  the  assignment  statement  for  TEMP 2. 


Original : 


C  MOVE  INEFFECTIVE  DIVISION  FROM  ABA  TO  SECOND  INACTIVE  B/A. 

6525  IB A  LD ( I D  )  =  IB A 

C  WITHDRAW  ARMY  AIR  CARRIERS  IN  PROPLRTION  TO  TOE  OF  DIV.  70  TOE 

C  OF  All  DIVISIONS  IN  ABA.  STORl  IS  ACTUAL  NO.  AAC  IN  ABA. 

UO  6526  1A AC =1 « N10 

IF (5TQK2( 1AAC ,  iS  ,L  )  .LE.O.O)  GO  TO  6526 

TEMP2  =  (  FAA'.'i  0  (  ITl)  *TAACND  (I  AAC ,  L  I  /STOR  2  tl  AAC  ,  I S  ,L  )J  * 

\  STORl tIAACrIS, LI 

AACD5UAAC,  IS,L)=AMAX1  (0.0,  A  AC  DSC  I  AAC,  1S.LI-TEHP2) 

6526  CONTINUE 


Corrected : 

C  MOVE  INEFFECTIVE  DIVISION  FROM  ABA  TP  SECOND  INACTIVE  B/A. 

6525  1BALDC  ID  1=  1EA 

C  WITHDRAW  ARMY  AIR  CARRIERS  IN  PROPORTION  TO  TOE  OF  DIV.  TO  TOE 

C  OF  ALL  DIVISIONS  IN  ABA.  STORl  IS  ACTUAL  NO.  AAC  IN  ABA. 

DO  6526  IA AC  =1 »N 10 

1F(ST0R2(IAAC,1S,L  I-LE.O.O)  CO  TO  6526 

TEMP2  =  <FAACTD( IT)*TAACND  (I A AC  ,L »/ STOR 2 H AAC ,  IS , L ) ) *  C  JCIOOl 

X  STOR 1 C 1 AAC  » 1 5,L  I 

AACD5tIAAC,IS.Ll=AHAXH0.0,AACDSIlAAC,IS,L)-TEMP?l 

6526  CONTINUE 
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Error  D25:  Parameter  IDDABA  is  undetermined  for  replacement 
divisions. 


Location :  In  subroutine  TC  following  statement  labelled  6528. 

Discussion:  When  a  division  labelled  ID1  in  the  1st  inactive 
battle  area  replaces  an  ineffective  division  in  the  active  battle 
area,  the  local  parameter  IDDABA(IDl)  should  be  set  to  1  as  an 
indicator  that  the  replacing  division  has  not  been  reconstituted. 

Corrective  Action:  Following  statement  labelled  6528  include  the 
assignment  statement 

IDDABA (TD1)  =  1. 


Original : 

C  REMOVE  DIVISION  FROM  INACTIVE  LIST 

1DLI6AI IKT,IS,L)=D 
lBAtO(IDl)=lABAS(IS) 

IKT  ;  0 

C  ADD  ARMY  AIR  CARRIERS  FOR  NEW  DIVISION  AT  TOE  LEVEL 
DO  6529  1AAC  -  1 #N  10 

AACDS ( I  AC  > 1 5, L )  =  AA CDS< I  AC . I S ,L ) *FA AC TD f I T1 )*T AACND ( I AAC.LI 
6529  CONTINUE 

Corrected: 

C  REMOVE  DIVISION  FROM  INACTIVE  LIST 

IDLlBAf IKT , I S , L  >  =0 

IDDABA ( I D 1  ) -1  I  JCI001 

IBALD(IDl) =JABAS(I SI 
IKT  =  0 

C  ADD  ARMY  AIR  CARRIERS  FUR  NEW  DIVISION  AT  TOE  LEVEL 

DC  6529  IAAC - 1 »N 10 

AACOSUAC,  IStL)=AACOSIIAC»IS»L)-*FAACTOHTl)*T  AACND  ( I  AAC*LI 
6529  CONTINUE 

Error  D26:  Double  entry  of  division  reconstitution  requirements. 
Location:  In  subroutine  TC  within  DO  loop  7015. 

Discussion:  If  a  division  whose  index  is  ID  in  the  active  battle 

area  requires  a  large  reconstitution  effort,  then  the  parameter 

IDDABA (ID)  is  set  to  1  and  initial  reconstitution  is  bypassed. 

However,  reconstitution  requirements  are  accumulated.  Later,  a  second 
reconstitution  attempt  is  made  within  DO  loop  7015  and  the 
reconstitution  requirements  are  again  accumulated,  thus  causing  a 

possible  double  entry  in  the  accumulation  process. 

Corrective  Action:  Eliminate  the  conditional  branch  statement 

within  DO  loop  7005,  thus  allowing  an  unconditional  reset  of  the 
accumulation  parameters  RWNABA  and  RPNABA. 
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no  on 


Error  D26  (Cont'd) 


Original : 

C . JF  DEMAND  FOR  REPLACEMENTS  HAS  BEEN  MET,  SKIP. 

N3  -NM(  L ) 

DO  7015  ID5=N1 ,N2 
ID  -  1 DLABA  (  IDS,  IS) 

IF (I  ODABA (  ID ) . NE  .1  .AND . 1 RDABA ( L ) .NE . 1 )  GO  TO  7015 
II  =  ITD(ID) 

IC=CNTRYC(  ID) 

T£MP=AMAX1 10.0 »TPD ( IT  >  — PDI V { ID)) 

TEMPA  =  TPD(IT)-FTOSTRU,L) 

TEMP  =  AM1NKTEMP,  TEMPA) 

RPNABAUC.LI  =RPNABAHC,L  l+TEMP 
DJ  7 o 1 0  I W  =  1 ,N 3 

TEMP  =  AMAX1 (0.0, TWO ( IK, I T )-WDI V II W,  ID ) ) 

RNNABA  (  IK,  IC  ,  L  )  =  RKNABA  (I  H,  I «.  ,L  )*TEKP 

7010  CONTINUE 
7015  CONTINUE 

Corrected: 

73)  COMPUTE  DEMAND  AND  REPLACEMENTS  IN  THE  ACTIVE  BATTLE  AREA 


DO  7005  L=  1 ,2 

....IF  DEMAND  FOR  REPLACEMENTS  HAS  BEEN  MET,  SKIP. 

JC1  IFdRDABA(L)  .EC.O)  GO  TO  7005  C  JCI001 

N3=NW(L) 

DO  7004  1C=1,1 
DO  7003  IW=1,N3 

C  RHNABA  IS  REPLACEMENT  WEAPONS  NEEDED  IN  ABA 

7003  RMNABA(1W,IC,L)=0. 

C  RPNABA  IS  REPLACEMENT  PEOPLE  NEEDED  IN  ABA 

RPNABAC  IC  , L ) =0  . 

7004  CONTINUE 

7005  CONTINUE 

C  FOR  EACH  DIVISION  IN  AN  ABA  DETERMINE  REPLACEMENT  WEAPONS 
C  AND  PEOPLE  TO  BRING  DIVISIONS  UP  TO  TOE  LEVELS. 

DO  7025  IS=1 »NS 
N2  =0 

00  7020  L=l,2 

IF(NDS(IS, L) .EQ.O)  GO  TO  7020 
N1  =1-»N2 

N2=N2*ND5{  IS,L ) 

C . IF  DEMAND  FOR  REPLACEMENTS  HAS  BEEN  MET,  SKIP. 

N3=NW(L> 

DO  7015  !OS=NI  ,N2 
ID=IOLABA{ IDS, IS) 

IF(1DDABA( ID ) . NE .1  .AND .IROABA(L).NE.l)  GO  TO  7015 
IT  =  1  TO  C ID) 

1C=CNTRYC( ID) 

TEMP=AMAXI(0.0,TPDI1T)— POIVtID)) 

TEMPA  =  TPDCIT  )*FT3STRU  ,L  ) 

TEMP  =  AM1N1 (TEMP, TEMPA) 

RPNABAIIC,LI=RPNABACIC,L)*TEMP 
DO  7010  IW  =1  ,N  3 

TEMP  =AMAX1 (0.0,TWD(1W,IT)-W0IV(IW,  ID)) 

RWNABAI  IW,  IC  ,L  )=RK  NAB  A  CIW,IC,L)-»TEMP 
7010  CONTINUE 
7015  CONTINUE 
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Error  D27:  Division-type  index  is  undefined. 

Location;  In  subroutine  TC  within  DO  loop  8560. 

Discussion:  Within  DO  loop  8560  the  assignment  statements  for 
local  parameters  SUNDIV,  TPNDIV,  and  TWNDIV  contain  parameters  having 
division  type  index  IT.  However,  index  IT  is  defined  in  the  section 
following  the  conditional  branch  statement  8555. 

Corrective  Actions  Move  the  assignment  statement  for  Index  IT  to 
the  section  following  the  DO  statement  8585  and  before  the  conditional 
branch  to  statement  8555. 

Original : 

C . l'  KLPL'ACtKfNT  POOLS  SUFFICIENT,  SEND  UP  REPLACEMENTS. 

I\5  s,‘JSU  ( l  I 

\i  -N  i  WSU  IL  ) 

tU  .1585  1 D  s N1 1  N? 

ISA  =  13AIDUD) 

is  * 

i c  ( i : . l  ; . : )  is-xs 

I  aba  =  1  AD  AS  {IS) 

'I8AU.  =  1  AKA*  IS  i  wN-  1T-tP' 

!M  jcA.Kfc.  IDAUi  GO  IU  5 

if!  I  u  OAh  A  t  11’  J.CO.O  .AKD.II  .cO.O  J  CD  TO  8555 

I T  -  1  r  IM  I L'  > 

IC  =  C  <jTR  YC  (  ID  J 

r‘0  )  V  I  I  J  J  ■  P  y  I  V(  ID )  *  PND40A  { I  if > 

KPCZ ( IC,l) *AKAXl (0.0,RPC2( IC »l )-PN LABA ( ID> I 
DO  5 5 Ail  IW*1,N3 

WMV  (  !W,  ID  >*NDJVtl  K,lD)*kNDAbAllW,  ID) 

kRPC\( I*. IC,L) »AP4  X1C  .C.WRPC:  Cl  J,IC,L)-KNUABACIW,ID)  ) 

9.  If,  ■  C'sVIMJF 

iJw  1SU*1,K5 

'  .oUTM  ISU,  ID  J  a  MSJ  DT  ( I  SU  i  II  l 

S5J.5  c:*.»v  .t 

i  f-.tu;.  CAPACITY  L  l‘*I  ’  t’  i  • .  «*Sy?r|v  is  IN  SECTION  75 

0  J  !  0  f. Sh“ 


Corrected: 

C . If  F  PL ACE  ME  l*.’T  PG3LS  SUFFICIENT,  SEND  UP  REPLACEMENTS. 

N5  -:::u(U 

lib*  :  T  W  S  U  C  L  ) 

D:;  .'.*65  I0=N1,N2 

XT-!TDC1D>  M  JCI001 

ISA  =  I'JALDtID) 

IS  MOD  (  I  f'A  ,NS  I 

IPftS.EO.O)  I S  *N5 

l  A  L  =  I  ALAS  (IS) 

lu-Uj  -  IABA*ISIGN*1TYP*N5 

I F  <  I.'  AU.GT  .NDA.OR.  ILAU.LE.OCOTU  8585  I  JCI001 

IFlIi  A.NE.IEAUI  03  TO  8585 

IF  (  !t,DA!U(  IDI.KE  .3.LR.II  .NE.Ol  GO  TO  8555  C  JCI001 

It-LMRYCI  IU) 

PD  I  V ( I D ) =P  D I  V I  ID)* PNDABA CIDI 
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Error  D27  (Cont'd) 


Corrected  (Cont'd) 

RPCi-'UC  ,t  )  =AMAX1  (0  .O.RPCMIC  ,L  )-PN DABA ( TD ) ) 

DC  540  Jh'=],N3 

WD  S  V  » iW, ID )  =  KDIV (I W  ,1  D  )  ♦KNDABA  ( 1 W  »  ID) 

KMC  '  ( IW,IC,L) =AMA  XI  {0.0  ,WKPC2  C I W  ,  rC  ,L  ) -KNDAB  A  Cl  K  ,  lu  I) 

S5  40  CLi>»  f  IMJE 

00  545  ISU- 1 » N5 

M’J.l  tlSl!,]D)=f:lSJDT{lSU,IT) 

3545  Cs“.  ‘  '•  U Z 

C  CAPACITY  LIMITED.  RES'JPPLY  AS  IN  SECTION  75 

0 1 '  7 .  6  o  b  5 

3555  c;-  r  .';uc 

Error  D28;  Incorrect  conditional  terms  in  branch  statement. 
Location;  In  subroutine  TC  before  DO  loop  8540. 

Discussion;  The  conditional  branch  statement  to  statement 
labelled  8555  contains  the  conditional  terms 


IDDABA(ID) . EQ.O.AND. II.EQ.O. 


The  section  beginning  at  label  8555  is  entered  if  reconstitution 
resources  are  insufficient  and  apportioned  resources  are  required. 
However,  the  local  flag  II  is  initialized  to  0  and  is  later  set  to  1 
if  the  resources  are  limited.  Thus,  the  above  conditional  term  is  the 
negation  of  the  correct  term;  that  is 


IDDA8A (ID) .NE . 0. OR. II.NE.O. 


Corrective  Action:  Negate  the  original  conditional  term  in  the 
branch  statement  to  label  8555. 

Original; 


IA«A  =  1  AC  AM  l  SI 

1 3 AU  ^  UtA+iSICN'  IT YP  -MS 

IF  (  !  oA . h t .  ID AU  »  GO  TO  t585 

IF  <ILDA8A(  lDJ.fC.O  .AND. I  I. EG. 01  GO  TO  8555 

1  T  -  1  i  D  l  I  0  J 

I C - C  0  T  R  Y  C ( ID) 

PjJVI I D I =  P  y 1 V  C  ID )+  PND A3 A (ID) 
kPCZUC«L)-AKAXMC.'),RPCI(IC,l  J-PKLABA  (  I D )  I 
l«*  ‘54  )  I*-1,N3 

1  V  (  IP,  1  !<  >  =  WD  I  V  C I  k.JDI  +  WNDASAdH,  ID) 

RRPCV  (IK,  IC,L)=AKAXHCj.C)*v:kPCZ  (I  U,  IC  ,L  J -KNDAB  A  (  I  W  «  I  D  )  ) 
854.-.  CMt'INbr 
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Error  D28  (Cont’d) 


Corrected ; 

IABA  =  IABASUSI 

IBAU  =  IA8A*ISIGNMTYP*NS 

IF ( 1BAU.GT .NBA .OR.  IBAU.LE .0>G0T0  8585  I  JCIOOl 

IFflBA.NE.IBAU)  GO  TO  8585 

IFIIOOABAUDI.NE.O.OR.II.NE.OI  GO  TO  8555  C  JCIOOl 

IC=CNTRYCI  ID) 

PDIVt IO)=POIV( 1 0 1 ♦ PN0A8A (ID ) 

RPCZHC.LJ  =AMAX1  10  .0,RPC2  <  If  ,L  I-PNDABA  C  IDI I 
00  8540  IW=1,N3 

WDIVtIW,ID)=WDlV{IWfIO)*WNOABAtlW»ID) 

WRPCZ CIW»lC*L)=AMAXltO.O#WRPCZtIW*lC  »L I-WNDABA I IW , ID ) ) 

8540  CONTINUE 

Error  D29:  Incorrect  index  used. 

Location:  In  subroutine  TC  at  statement  labelled  8563. 

Discussion:  The  parameter  IDWTSU (1 , IW,L)  should  have  the  indices 
IDWTSU ( 1 , ISU,L)  where  ISU  is  the  proper  subunit  index. 

Corrective  Action:  Change  the  index  IW  to  ISU  in  the  parameter 
IDWTSU. 


Original: 


C . CREATE  NEW  SUBUNITS.  PNSU  IS  NO.  SUBUNITS  FOR  WHICH  THERE  ARE 

C  AVAILABLE  REPLACEMENT  PEOPLE.  WN5U  IS  ND.  FOR  WHICH  THERE  ARE 

C  PRIMARY  WEAPONS  AN u  SUA  IS  NO.  OF  SUBUNITS  FOR  WHICH  THERE  ARE 

C  ENOUGH  PEOPiE  AND  ^rjmARY  WEAPONS.  REDUCE  REPLACEMENT  POOLS  TO 

C  REFLECT  CREATION  OF  NEW  SUBUNITS  NEEDED  IN  DIVISION. 

SU  M  =  U  • 

Oil  8570  I SU=  1  •  N5 
PNSU-G..7 

IF  C  rPN-IV.LE  . .  -JO  1 »  GO  TO  8563 
PNSU=(PNDABAIID)/TPNDIVI=>SUNDIVUSU) 

PNSO=AM I Ni (PNSU,SJNDIV ( ISU I ) 

6563  IW  =  UWISUll,  IW,L  ) 


Corrected: 

C . CREATE  NEW  SUBUNIT S.  PNSU  15  NO.  SUBUNITS  FOR  WHICH  THERE  ARE 

C  AVAILABLE  REPLACEMENT  PEOPLE.  WNSU  IS  NO.  FOR  WHICH  THERE  ARE 

C  PRIMARY  WEAPONS  AND  SUA  IS  NO.  OF  SUBUNITS  FOR  WHICH  THERE  ARE 

C  ENOUGH  PEOPLE  AND  PRIMARY  WEAPONS.  REDUCE  REPLACEMENT  POOLS  TO 

C  REFLECT  CREATION  OF  NEW  SUBUNITS  NEEDED  IN  DIVISION. 

SUM  =0 . 

DO  8570  1 5U  =  I » N5 
PNSU=0.0 

IFITPNDIV.IF..001)  GO  TO  8563 
PN5U=CPNDABACIDI/TPND1V|»SUNDIVI1SU| 

PNSU=AMIN1 (PNSU?SUNDIVI ISU I) 

8563  IW=IDWTSU(1,ISU,L)  C  JCIOOl 
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non 


Error  D30:  DO  statement  missing 


Location:  In  subroutine  AIP.ASG  before  DO  Loop  47. 

Discussion;  Within  the  context  of  the  code,  a  DO  statement  with  a 
DO  range  46  indexed  over  aircraft  range  IRNG  is  missing. 

Corrective  Action:  Before  DO  loop  47  insert  the  following  DO 
statement 


DO  46  IRNG  =  1,  5  . 


Original: 

C  SOME  AIRCRAFT  MUST  BE  REMOVED  FROM  AN  AIRBASE.  TRY  MOVING  SHORTEST 

C  RANGE  AIRCRAFT  IN  PUOL  ACROSS  SECTORS  TO  OTHER  SECTOR  AIRBASES 

C  THAT  MAY  HAVE  SPACE. 

C  03  At  IRNG=1 ,5 

D3  47  I  S- 1  SI » I  52 
IF(JFLGSHS).NE.l)  GO  TO  47 

C 

C  THIS  AIRBASE  HAS  TROUBLE 

DO  46  I  AC  = 1,NACT 

C  DO  ANY  AIRCRAFT  OF  THIS  TYPE  HAVE  TO  BE  MOVED. 
lFIPGGlUAC.ISJ.EQ.O.J  GO  TO  48 

Corrected: 

SOME  AIRCRAFT  MUST  BE  REMOVED  FROM  AN  AIRBASE.  TRY  MOVING  SHORTEST 
RANGE  AIRCRAFT  IN  POOL  ACROSS  SECTORS  TO  OTHER  SECTOR  AIRBASES 
THAT  MAY  HAVE  SPACE. 

DO  46  I RNG  =1*5  C  JCIOOl 

DO  47  I  S=I  51,152 
lFUFLGSCISI.NE.il  GO  TO  47 

C  THIS  AIRBASE  HAS  TROUBLE 
DO  48  I AC=1,NACT 

C  DO  ANY  AIRCRAFT  OF  THIS  TYPE  HAVE  TO  BE  MOVED. 

lFCPOOLUAC.ISI.EQ.O.l  GO  TO  46 


Error  D31:  Incorrect  sector  index. 

Location:  In  subroutine  AIRASG  within  DO  loop  49. 

Discussion:  The  sector  index  IS  is  used  instead  of  the  correct 
index  ISIN  in  two  parameters  within  DO  loop  49: 

(a)  in  parameter  IFLGS  within  the  conditional  branch 

to  label  49; 

(b)  in  parameter  SUMUDR  within  assignment  statement 

for  ACGO. 

Corrective  Action:  Substitute  index  ISIN  for  index  IS  in 
parameters  IFLGS  and  SUMUDR. 
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Error  D31  (Cont*d) 


Original : 


NOW  SEARCH  FOR  POTENTIAL  RECEPTOR  SECTORS 

OQ  49  I  SIN-151  , 1 S2 

IF < I  S1N.EQ.I5>  GO  TO  49 

IF ( 1 FLGSI I S) .NE.O)  GO  TO  49 

NOW  1  SI N  IS  A  POTENTIAL  RECEPTOR  AIRBASE. 

IF (POOL ( lACt IS ).L£ . SOMUD  R ( I S I N ) I  GO  TO  51 

FILL  UP  RECEPTOR  CENTER  TO  ITS  LIMIT 

ACGO  =  SUHUDRi IS ) 

POOL ( 1  AC  1 1 S)  =  POOL C1AC, 1SI-SUMUDRII SIN) 
SUMUDRt I  SI N)  *  0. 

IF  LGSI I  SIN )  =  2 
GO  TO  52 
CONT INUE 


TRANSFER  A/C  AS  POSSIBLE 


Corrected: 


NOW  SEARCH  FOR  POTENTIAL  RECEPTOR  SECTORS 

DO  49  1SIN=1S1,1S2 

IF  IISIN.EQ.IS)  GO  TO  49 

lFUFLGS(ISIN)  .NE.O)  GO  TO  49 

NOW  I  SI N  IS  A  POTENTIAL  RECEPTOR  AIRBASE. 

IF  I POOL (IACtlS).LE .SUMUORllSIN))  6L  TO  51 

FILL  UP  RECEPTOR  CENTER  TO  ITS  LIMIT 

ACGO  =  SUHUDRI ISIN I 

POOL  1 1AC  1 1 S)  =  PCOLIIAC, 15 )— SUMUDR I) SIN ) 
SUHUDRI ISIN)  =  0. 

IFLGSII SIN )  =  2 
GO  TO  52 
CONTINUE 


transfer  a/c  as  possible 


JCI001 


JCI001 


Error  D32:  Incorrect  parameter  used. 

Location:  In  subroutine  AIRASG  following  statement  labelled  170. 

Discussion:  The  context  of  the  code  indicates  that  the  parameter 
SUMAC  in  the  assignment  statement 


SUMAC (IS)  =  0 


should  be  the  parameter  QPNAC(IS). 

Corrective  Action:  In  the  assignment  statement  change  the 
parameter  SUMAC  to  the  correct  parameter  QPNAC. 
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173  CONTINUE  ,  ,,, 

QPNAC 1 1 5)  =  0.9999 *PPNOTF CIS »L l/SUHAC IIS  1 

174  CONTINUE 
GO  TO  177 

170  CONTINUE 

SUMACHS!  =  0. 

177  CONTINUE 

Corrected; 


173  CONTINUE 
QPNAC (IS ) 

174  CONTINUE 
GO  TO  177 

170  CONTINUE 
QPNACCIS) 
177  CONTINUE 


0.9999*PPNQTf ( IS  #L I/SUHACt IS) 

0. 
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